vba - 如何在工作表名称中搜索字符串？

Question

我正在尝试使用 For each 循环在工作簿的所有工作表名称中搜索特定字符串，如下所示:

 For Each Sheet In ActiveWorkbook.Sheets
  Name = ActiveSheet.Name
  Next Sheet

但是我无法使用上面的代码获取所有工作表名称，因为它只卡住了一个工作表名称。

获得工作表名称后，我想在工作表名称中搜索特定字符串 所以，如果有人能帮助我在所有工作表中搜索字符串，那就太好了。

Answer 1

For Each sheet In ActiveWorkbook.Sheets
    If sheet.Name Like "*" & strSearch & "*" Then
        Debug.Print "Found! " & sheet.Name
    End If
Next

您遍历所有工作表，但始终在循环中使用 ActiveSheet.Name。 要搜索模式，您可以使用带有 * 通配符的 Like。