Excel VBA中的类似运算符

Question

我在for循环中有一个if语句，在其中试图使用like运算符将当前Cell值与其他字符串进行比较。 由于某种原因，这给了我一个类型不匹配的错误。 这是因为rng5.Cells(i, 1).Value不是字符串吗？ 任何帮助将不胜感激！ 我在下面粘贴了原始代码。

For i = 1 To rng5.Rows.Count

    If rng5.Cells(i, 1).Value Like "*test*" Or "*Test*" Or "*Demo*" Or "*demo*" Then
        rng5.Cells(i, 1).EntireRow.Hidden = True
    End If
Next i

Answer 1

OR运算符仅适用于布尔值，因此必须向其提供布尔值。 您不能像以前那样省略条款

For i = 1 To rng5.Rows.Count

    If rng5.Cells(i, 1).Value Like "*test*" Or rng5.Cells(i, 1).Value Like  "*Test*" Or rng5.Cells(i, 1).Value Like  "*Demo*" Or rng5.Cells(i, 1).Value Like  "*demo*" Then
        rng5.Cells(i, 1).EntireRow.Hidden = True
    End If
Next i

Answer 2

使用Instr函数

For i = 1 To rng5.Rows.Count

    If instr(1,rng5.Cells(i, 1).Value, "test")>0  Or instr(1,rng5.Cells(i, 1).Value, "Test")>0 Or instr(1,rng5.Cells(i, 1).Value, "demo")>0  Or instr(1,rng5.Cells(i, 1).Value, "Demo")>0 Then
        rng5.Cells(i, 1).EntireRow.Hidden = True
    End If
Next i

Answer 3

如果需要，请使用Lcase或Ucase来验证数据的内容，例如使用不区分大小写的

Sub test()
    For i = 1 To rng5.Rows.Count
        If LCase(rng5.Cells(i, 1).Value) Like "*test*" Or _
            LCase(rng5.Cells(i, 1).Value) Like "*demo*" Then

            rng5.Cells(i, 1).EntireRow.Hidden = True

        End If
    Next i
End Sub