vba - 在 VBA 中将 Like(字符串模式)与 Case 结合起来

Question

我想在 VBA 代码中将 Like 与 Case 结合起来。我当前的代码能够删除名称与范围 A 中的名称不匹配的所有工作表:

Dim MyCell As Range, MyRange As Range
Dim wbook As Workbook, xWs As Worksheet
Dim DeleteSheetFlag As Boolean

Set MyRange = Sheets("Summary").Range("A2")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wbook = ActiveWorkbook

For Each xWs In wbook.Worksheets
    DeleteSheetFlag = True

    For Each MyCell In MyRange
        Select Case xWs.Name

            Case MyCell.Value, "Summary"
                DeleteSheetFlag = False
                Exit For

        End Select

    Next MyCell

    If DeleteSheetFlag Then
        xWs.Delete
    End If

Next xWs

Application.DisplayAlerts = True
Application.ScreenUpdating = True

我想以这种方式更改它，它会删除名称与范围 A 中的名称不相似的所有工作表。如果我能够得到类似的内容

 Case **Like** MyCell.Value, "Summary"
                DeleteSheetFlag = False

问题就解决了。我的意思是与我们从Regular Expressions中知道的类似的模式匹配。 。就我而言，我有两张纸，其名称为:Etat1和Etat1(2)，我想输入 字符串 Eta 以保留两者。

Answer 1

要强制执行此操作，您需要使用如下解决方法:

Select Case True
     Case MyCell.Value Like "*Summary*"
           Debug.Print "!"
           'DeleteSheetFlag = False
           '...
     Case MyCell.Value Like "*OtherCase*"
           DeleteSheetFlag = False
           '...
End Select