VBA 全てのシートの値をクリアする

  • 作成日 2021.09.04
  • vba
VBA 全てのシートの値をクリアする

VBAで、全てのシートの値をクリアするコードを記述してます。

環境

  • OS windows10 64bit

全てのシートの値をクリア

全てのシートの値をクリアするには、まずは全てのシートを順番に取得して各シートで「Cells.Clear」を使用します。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Dim i As Long
    
    For i = 1 To Sheets.Count
        Worksheets(Sheets(i).Name).Cells.Clear
    Next i
    
End Sub

実行してみます。

各シートがクリアされていることが確認できます。