VBA 清除工作表中所有的内容（包括内容、格式、图表等）的代码

Question

VBA中有什么简单的代码可以 清除工作表中所有的内容（包括内容、格式、图表等）？
例如：Sheets("1").Cells.Clear
但它只能清除内容和格式，没法清除shapes 和 pictures
有没有一句简单的代码将内容、格式和图表等都清除掉，而象一个新表格

ps：因为有另外表格引用这个表格，所以不要通过新建再更名这种方式

Answer 1

可以用下面思路：新建一个空白工作表，然后删除其他所有工作表，代码如下：

在VBA中添加一个用户模块，粘贴下面代码：

Sub 删除()
Set sh1 = Sheets.Add
Application.DisplayAlerts = False
For Each sh In Worksheets
    If sh.Name <> sh1.Name Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub

执行即可

提示，执行前做好备份，防止误删除。

Answer 2

'清除图表
 ActiveSheet.ChartObjects.Delete    

'清除图片
 Dim Shp As Shape    
 For Each Shp In ActiveSheet.Shapes    
 If Not Shp.Type = msoFormControl Then Shp.Delete    
 Next

本回答被提问者采纳

Answer 3

汗~最直接最有效的办法就所工作表给删了，再建一个，多简单