Vbaを使用してシート全体をクリアするにはどうすればよいですか?

VBA コードを使用してシート全体を一度にクリアするには、2 つのことを使用する必要があります。1 つは CLEAR メソッド、もう 1 つはワークシート内のすべてのセルを参照する CELLS です。

アクティブシートをクリア

アクティベーションシートの内容をすべてクリアしたい場合、コードは次のようになります。

 Cells.Clear

このコードを実行すると、アクティブ シート内のすべてのセルからすべてが消去されます。すでに述べたように、ワークシート全体を参照する場合は Clear を使用し、ワークシート全体を参照する場合は Clear を使用します。

特定のシートをクリアする

シートをクリアするには、そのシートを有効にする必要があることに注意する必要があります。したがって、「Sheet1」をクリアしたいとします。コードは次のようになります。

 Sheets("Sheet1").Activate Cells.Clear

このコードでは、最初の行で「Sheet1」をアクティブにし、2 行目ですべてをクリアします。

その他クリアすべきこと

以下の方法を使用して、さまざまなものを消去することもできます。

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

特定のワークブックからシートを削除する

以下のコードは、ブック「Book1」を参照し、シート「Sheet1」をクリアします。ただし、このコードの実行時にワークブックが開いていることを確認してください。

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

このコードは、まずブックの「Sheet1」をアクティブにして消去します。

閉じたブックからシートを削除する

また、以下のコードでは、特定の場所に保存されているワークブック「sample-file」の「Sheet1」を参照しています。

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub