●セルをクリアする場合4つのパターンがあります。下表に纏めましたので参考にして下さい。
| 書式 | 意味 | 使用例(Range) | 使用例(Cells) |
|---|---|---|---|
| Clear | セルの内容を全て削除 | Range("A1").Clear | cells(1,"A").Clear |
| ClearContents | セルの値のみ削除 | Range("A1").ClearContents | cells(1,"A").ClearContents |
| ClearFormats | セルの書式のみ削除 | Range("A1").ClearFormats | cells(1,"A").ClearFormats |
| ClearComments | セルのコメントのみ削除 | Range("A1").ClearComments | cells(1,"A").ClearComments |
●下記のサンプルプログラムは、セルの値・書式・コメント全て削除する例です。
Sub clear01()
'セルの内容を全て削除 Clear
Range("A1").Clear ' セルA1の値と書式を削除
Range("B1:C10").Clear ' セル範囲B1~C101の値と書式を削除
Range("E1,E3:E4,E6,E8:E10").Clear '複数セルの範囲の値と書式を削除
End Sub
Sub clear02()
'セルの値を削除 ClearContents
Range("A1").ClearContents ' セルA1の値を削除
Range("B1:C10").ClearContents ' セル範囲B1~C10の値を削除
Range("E1,E3:E4,E6,E8:E10").ClearContents '複数セルの範囲の値を削除
End Sub
Sub clear03()
'セルの書式を削除ClearFormats
Range("A2:A10").ClearFormats ' セル範囲A2~A10の書式のみ消去(年月日)
Range("B2:B10").ClearFormats ' セル範囲B2~B10の書式のみ消去(¥)
End Sub
Sub clear04()
'セルのコメントを削除ClearComments
Range("B4:B12").ClearComments ' セル範囲B4~B12のコメントのみ消去
End Sub