vba - アーカイブマクロ Excel VBA の作成

Question

この最新のプロジェクトでは、次のことを行うボタンとマクロが必要です。

マクロをクリックすると、既存のワークブックからすべてのデータがコピーされ、別の場所に保存されます。ワークブックのコピーを作成するには、次のコードを使用します。

    Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Data.xlsm"
Application.DisplayAlerts = True

コピーがアーカイブされたら、既存のワークブックのデータを削除して、すべての書式設定を残す必要があります。データを削除してフォーマットを維持するにはどうすればよいですか?

score 1 · Accepted Answer

Collection.ClearContents()のプロパティを使用するCells

Sub ClearAll()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Cells.ClearContents
    Next
End Sub

このコードは、現在のブック内のすべてのシートを反復処理し、書式を維持したままセルから値を削除します。

アップデート！

各シートの特定の範囲のみをクリアしたい場合は、

Sub ClearAll()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Range("A1:B20").ClearContents
    Next
End Sub

A1:B20これにより、各シートの範囲のみがクリアされます。