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每张纸上的范围。