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

2024年11月28日 18:00

有3个网友回答

网友（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

执行即可

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

网友（2）：

'清除图表
 ActiveSheet.ChartObjects.Delete    

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

网友（3）：

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