创建存档宏Excel VBA
提问于 2013-09-09 01:48:13
在这个最新的项目中，我们希望有一个按钮&宏，它将执行以下操作：
单击时，宏将复制现有工作簿中的所有数据&将其保存到另一个位置。要创建工作簿的副本，我将使用以下代码：
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Data.xlsm"
Application.DisplayAlerts = True此代码来源于- http://goo.gl/t7qOyB。
一旦副本被归档，就必须删除现有工作簿中的数据，留下所有格式。如何在保留格式的情况下删除数据？
回答 1
Stack Overflow用户
回答已采纳
发布于 2013-09-09 02:30:14
使用.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。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18695576
复制相关文章
点击加载更多
腾讯云开发者
