セル CellsとRange及びColumns
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub Test() Dim sht As Worksheet Set sht = ThisWorkbook.ActiveSheet '以下は両方同じ意味 With sht 'Cellsでの記述の場合 .Cells(1, 1).Value = 2 .Columns(1).ClearContents 'Rangeでの記述の場合 .Range("A1").Value = 2 .Columns("A:A").ClearContents End With End Sub |