如何检查单元格是否在VBA中包含两个字符串

时间:2015-03-10 21:24:08

标签: string vba

如何检查单元格中是否包含两个单独的字符串?我试过了:

ElseIf InStr(1, UCase(testVal), UCase("goku"), 1) And InStr(1, UCase(testVal), UCase("vegeta"), 1) Then
            Worksheets("Export Worksheet").Cells(i, 18).EntireRow.Interior.ColorIndex = "4"

然而,这不起作用......

如果我使用

ElseIf InStr(1, UCase(testVal), UCase("goku"), 1) & InStr(1, UCase(testVal), UCase("vegeta"), 1) Then
            Worksheets("Export Worksheet").Cells(i, 18).EntireRow.Interior.ColorIndex = "4"

如果“goku”或“vegeta”在单元格中,它将突出显示该行。但是,我需要将两个值放在单元格中。

请帮忙!

1 个答案:

答案 0 :(得分:2)

你希望InStr的结果大于0.还使用“And”而不是“&”

ElseIf InStr(1, UCase(testVal), UCase("goku"), 1) > 0 AND InStr(1,     UCase(testVal), UCase("vegeta"), 1) > 0 Then
        Worksheets("Export Worksheet").Cells(i, 18).EntireRow.Interior.ColorIndex = "4"