EXCEL VBAの書き方を教えてください

質問

EXCEL2010および2013を使用しております。
以下の場合、どのようなコードを書いたらよいか、教えてください。

(1)EXCELで図のような表を作っており、B列に「時刻」表記だけを表示させるように
したいです。
　時刻表記（10：00や12：00など）以外に文字列（15時ころ、19時前後）が入っていますが、
文字列が入っているセルは文字を消して、時刻表記だけのセルに統一するにはどのようなコードを書けば良いでしょうか。
例の図には「15時ころ」などの文字列が入っていますが、他の別シートには文字列はなく、すべて時刻表記が入っている場合もあります。

(2)以下の場合のコードの書き方も教えてください。
D列が20%以下の場合はE列の「利益」を0と入力し、D列が21%以上の場合はC列「粗利」とD列「割合」をかけたものを、E列の「利益」に表示する。

VBAを勉強し始めたばかりで色々と調べてみたのですがなかなか難しく、お分かりになる方のお力をいただければと思います。
宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

順繰りセルを巡っていくなんてドンくさい事はしません。

sub macro1()
　on error resume next
　range("B2:B" & range("B65536").end(xlup).row).specialcells(xlcelltypeconstants,xltextvalues).clearcontents
end sub

sub macro2()
　with range("E2:E" & range("D65536").end(xlup).row)
　　.numberformat = "0"
　　.formula = "=(D2>20%)*C2*D2"
　　.value = .value
　end with
end sub

お礼

早速のご回答をありがとうございました！
おかげさまで解決いたしました。

これからもっと勉強していこうと思います。