Sub 値を削除する() Range("A1") = "" End Sub
Sub 値を削除する_別パターン() Range("A1").ClearContents Range("A1") = Null End Sub