创建存档宏Excel VBA

Question

在这个最新的项目中，我们希望有一个按钮＆amp;将执行以下操作的宏：

单击时，宏将复制现有工作簿中的所有数据。将它保存到另一个位置。要创建工作簿的副本，我将使用以下代码：

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

此代码来自 - http://goo.gl/t7qOyB

归档副本后，必须删除现有工作簿中的数据，并留下所有格式。如何删除数据但保持格式化？

Answer 1

使用.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。