excel - 范围内的类似 VBA 的运算符

Question

我有以下代码，我正在尝试检查特定单词范围内的单元格。在这种情况下，这个词是测试。它可以以各种方式出现，例如:测试程序/程序测试/程序测试等。

如何使 LIKE 运算符在我的案例中起作用？在这种情况下，我似乎无法让它工作*测试或与任何其他运营商一起工作。

我错过了什么？

Sub Macro1()

Dim lastrow As LongPtr
Dim TagSheet As Worksheet
Dim LDRange As Range

Set TagSheet = Worksheets("sheet1")

TagSheet.Activate

lastrow = TagSheet.Range("AO" & Rows.Count).End(xlUp).row

Sheets("sheet1").Activate
ActiveSheet.Cells(lastrow, 41).Select

Range(Selection, Selection.End(xlUp)).Select


Set LDRange = Selection


LDRange.Select


For Each Cell In LDRange

  
  If Cell Like "*test" Then
    MsgBox "yes"
  Else
    MsgBox "no"
  
  
  End If
Next

Answer 1

像这样的东西应该可以工作:

Sub Macro1()

    Dim c as Range, TagSheet As Worksheet

    Set TagSheet = Worksheets("sheet1")

    For Each c in TagSheet.Range("AO1:AO" & TagSheet.Cells(Rows.Count, "AO").End(xlup).Row).Cells 
            'force to lower case to avoid case-sensitivity
            Debug.Print c.Address, IIf(lcase(c.Value) Like "*test*", "Yes", "No")
    Next c
End Sub