请问如何批量删除名称含变量的工作表

xiangbaoan

n6x1u3v6 发表于 2018-8-26 18:55
那个引号我已经改过来了，可是按照我自己代码的思路还是没法做。感谢ever best同学，帮我解决了问题，可 ...

Sub shanchanbiao()
Dim i As Integer
Dim j As Integer
j = Sheets.Count '共有16张工作表
MsgBox j
For i = j To 1 Step -1 '倒着删除，方法很对
    If Sheets(i).Name = "1月趋势监控" & i & "#" Then '请注意i是从16开始递减1，请问表的名字对得上吗?
        Sheets(i).Delete '对不上那么不成立，此句不执行，那就删除不了，不忙活一场。
    End If
Next
End Sub
'因你追问，来一段，供参考，其原理是利用错误，编写代码。
Sub delSht()
Dim i%, sht As Worksheet, nm$

Application.DisplayAlerts = False '不让出现是否确认删除的提示，下面的与之成对成双

On Error Resume Next '产生错误时继续，此处利用错误编写高效的代码

For i = Sheets.Count To 1 Step -1 '倒着进行，此代码倒顺无所谓，自行揣摩。

    nm = "1月趋势监控" & i & "#" '工作表名，可能存在，也可能不存在
   
    Set sht = Worksheets(nm) '存在，就没错误问题，执行下句删除；不存在，此句就会产生错误
   
    sht.Delete '不错就删除了，木有时虽有错误但会继续向下执行，不会终止。
Next

Err.Clear '清除错误

Application.DisplayAlerts = True
End Sub

n6x1u3v6

xiangbaoan 发表于 2018-8-26 20:47
Sub shanchanbiao()
Dim i As Integer
Dim j As Integer

谢谢，学习了。