VBA 表なかのデータを一括削除

実務では、表の見出し以外のデータ領域を削除することがあったりします。今日は、データ領域のデータを一括削除の方法を見てましょう。

 

Range従来の使い方

 

Sub test()

   ’　 データを一括削除
    Dim myCol As Long
    Dim myRow As Long
    
    myCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    myRow = Cells(Rows.Count, 1).End(xlUp).Row

    Range(Cells(2, 2), Cells(myRow, myCol)).ClearContents
End Sub

 

 

 

OffsetとResizeの組み合わせ

 

Sub test2()

　　’　 データを一括削除
    With Range("A1").CurrentRegion
    
       With .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1)
                .ClearContents
        End With
    End With

End Sub

 

実行結果

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事