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

n6x1u3v6

如题,请问如何批量删除含变量的工作表

Sub shanchanbiao()
Dim i As Integer
Dim j As Integer
   j = Sheets.Count
     For i = j To 1 Step -1
         If Sheets(i).Name = "1月趋势监控" & i &“#”  Then
             Sheets(i).Delete
         End If
     Next

end Sub



这个代码里面的“#”为何不能写进去，写进去，就报错

最主要代码运行后还不起到删除工作表的作用。

iwangyi

日期格式用#，但在此是工作表名而非日期

everbest2015

Sub 删除工作表()
    Dim sh As Worksheet, wb As Workbook, s_name As String
    Set wb = ThisWorkbook
    Application.DisplayAlerts = False
    If Sheets.Count = 1 Then Exit Sub
    For Each sh In wb.Sheets
        sh.Visible = xlSheetVisible
        s_name = sh.Name
        If InStr(s_name, "#") Then
            sh.Delete
        End If
    Next
    Sheets(1).Select
    Application.DisplayAlerts = True
End Sub

duquancai

因为那是 “等号”，等号啥意思你懂啥！

n6x1u3v6

everbest2015 发表于 2018-8-26 14:39
Sub 删除工作表()
    Dim sh As Worksheet, wb As Workbook, s_name As String
    Set wb = ThisWorkbo ...

感谢，已经使用过，可以解决问题，但是能不能帮我看下，我的代码为什么不能运行。
最重要的我想知道这句话，有什么问题？
If Sheets(i).Name = "1月趋势监控" & i &“#”  Then

n6x1u3v6

duquancai 发表于 2018-8-26 14:47
因为那是 “等号”，等号啥意思你懂啥！

感谢，那如果我想表达，“如果sheets(i).name 为”1月趋势监控1#“这样的意思，应该怎么表达。

abc123281

  If Sheets(i).Name = "1月趋势监控1#" Then

xiangbaoan

看你那个引号都与前面的不同，是不是引号的问题。

n6x1u3v6

xiangbaoan 发表于 2018-8-26 16:17
看你那个引号都与前面的不同，是不是引号的问题。

那个引号我已经改过来了，可是按照我自己代码的思路还是没法做。感谢ever best同学，帮我解决了问题，可想了解更多点。

n6x1u3v6

xiangbaoan 发表于 2018-8-26 16:17
看你那个引号都与前面的不同，是不是引号的问题。

那个引号我已经改过来了，可是按照我自己代码的思路还是没法做。感谢ever best同学，帮我解决了问题，可想了解更多点。