2019-02-27から1日間の記事一覧
Sheets("Sheet1").Activate Range("4:4").Select Range(Selection, Selection.End(xlDown)).ClearContents 上のコードは、以下のようにWithを使うとSelectを使わず書ける。 With Sheets("Sheet1") .Range(.Rows("4:4"), .Rows("4:4").End(xlDown)).ClearCont…
Sheets("Sheet1").Activate Range("4:4").Select Range(Selection, Selection.End(xlDown)).ClearContents 上のコードは、以下のようにWithを使うとSelectを使わず書ける。 With Sheets("Sheet1") .Range(.Rows("4:4"), .Rows("4:4").End(xlDown)).ClearCont…