Excel VBA：匹配带前缀数字的工作表名并删除工作表问题

你遇到的问题核心是Like运算符的模式写反了，而且缺少正确的通配符来匹配前缀的数字和空格。咱们一步步来修正：

问题分析 #

你的需求是：字符串strSheet（比如test）要匹配工作表名（比如1 test），也就是工作表名的后缀部分等于strSheet，前面是任意数字加空格。原来的代码strSheet Like xWs.Name是拿短字符串去匹配长的工作表名，逻辑完全反了，应该让工作表名去匹配包含strSheet的模式。

修改后的完整代码 #

If lsoData.DataBodyRange.Cells(lngCount, 2) = "yes" Then
    strSheet = lsoData.DataBodyRange.Cells(lngCount, 1).Value
    ' 关闭删除工作表的提示弹窗，避免打断程序
    Application.DisplayAlerts = False
    ' 遍历所有工作表
    For Each xWs In Application.ActiveWorkbook.Worksheets
        ' 匹配规则：工作表名以任意字符（数字）+空格+目标字符串结尾
        If xWs.Name Like "* " & strSheet Then
            xWs.Delete
            ' 删除ListObject中对应的整行，而不是单个单元格
            lsoData.ListRows(lngCount).Delete
            ' 找到并删除后退出循环，避免重复遍历
            Exit For
        End If
    Next xWs
    ' 恢复弹窗提示
    Application.DisplayAlerts = True
End If

关键细节说明 #

• Like模式调整：xWs.Name Like "* " & strSheet里的*是通配符，代表任意长度的字符（这里就是前缀的数字），后面跟空格和目标字符串，刚好匹配1 test这种格式。
• 关闭提示弹窗：删除工作表时Excel默认会弹出确认提示，加上Application.DisplayAlerts = False可以让程序自动确认删除，执行完再恢复正常提示。
• 删除ListObject行：原来的Cells(lngCount, 1).Delete只会删除单个单元格，导致列表结构混乱，改用ListRows(lngCount).Delete直接删除整行更合理。
• Exit For优化：找到匹配的工作表并删除后，直接退出循环，不需要继续遍历其他工作表，提升运行效率。

内容的提问来源于stack exchange，提问作者Mirko