如何用EXCEL宏删除不要的工作表呢？

Question

如图，寻求一个宏，能一键清空 （数据1到数据15）的所有数据

Answer 1

Sub 一键清空()
Dim Dic As Object, Sh As Worksheet, i&
Set Dic = CreateObject("Scripting.Dictionary")

For i = 1 To 15
Dic("数据" & i) = ""
Next i
For Each Sh In Worksheets
If Dic.Exists(Sh.Name) Then Sh.Cells.Clear
Next Sh

Set Dic = Nothing
End Sub
运行这个后，15个表都清空。本回答被提问者采纳

Answer 2

如何用EXCEL宏删除不要的工作表呢？ 20
可以用下面的代码来处理。
Sub delsh3_sh17_Val()

Dim a%
For a = 3 To 20 Step 1
Application.DisplayAlerts = False
Sheets(a).Cells.ClearContents
Next
End Sub