- 単一のセルの内容と書式をクリアする場合:
Sub ClearCell()
Range("A1").ClearContents ' A1セルの内容をクリア
Range("A1").ClearFormats ' A1セルの書式をクリア
End Sub
- 範囲内のセルの内容と書式をクリアする場合:
Sub ClearRange()
Range("A1:B10").ClearContents ' A1からB10までのセルの内容をクリア
Range("A1:B10").ClearFormats ' A1からB10までのセルの書式をクリア
End Sub
- シート全体のセルの内容と書式をクリアする場合:
Sub ClearSheet()
Cells.ClearContents ' シート全体のセルの内容をクリア
Cells.ClearFormats ' シート全体のセルの書式をクリア
End Sub
- 特定の条件に基づいてセルの内容と書式をクリアする場合:
Sub ClearConditional()
Dim cell As Range
For Each cell In Range("A1:B10")
If cell.Value = "条件" Then ' 特定の条件に応じてセルをクリア
cell.ClearContents
cell.ClearFormats
End If
Next cell
End Sub
これらの例では、ClearContentsメソッドを使用してセルの内容をクリアし、ClearFormatsメソッドを使用してセルの書式をクリアしています。適切なメソッドを使用して、必要なセルの範囲を指定し、内容と書式をクリアすることができます。
以上がExcel VBAでセルの内容と書式をクリアする方法の例です。ご参考になれば幸いです。