VBA - 如何使用LIKE运算符查找两个或多个值

时间:2016-04-18 03:13:02

标签: vba excel-vba excel

我有条件声明,我使用 LIKE运算符查找特定值,但它只返回一个值,是否可以同时返回多个值?< / p>

  

如果Sheet2.Cells(i,8).Value Like&#34; REPLACED MODEM *&#34;然后

我想在我的单元格中找到两个或更多值,值是&#34; REPLACED MODEM &#34; *,&#34; 替换缺陷调制解调器,&#34;改变调制解调器&#34; *我尝试了一堆方法,但没有运气..

  

如果Sheet2.Cells(i,8).Value Like&#34; REPLACED MODEM *&#34;或&#34; 已更换   缺陷调制解调器或&#34;改变调制解调器&#34; *然后

我认为这个想法是这样的(我已经尝试过这个不起作用......)

完整代码:

lastRowCri4 = Sheet2.Range("T" & Rows.Count).End(xlUp).Row
    For i = 2 To lastRowCri4


            If Application.CountIfs(Sheet2.Columns(20), Sheet2.Cells(i, 20), _
                                          Sheet2.Columns(8), Sheet2.Cells(i, 8)) > 1 Then


               If Sheet2.Cells(i, 8).Value Like "REPLACED DEFECTIVE MODEM*" Or Cells(i, 8).Value Like "REPLACED MODEM" Then
                If Not CBool(Application.CountIfs(Sheet2.Columns(20), Sheet2.Cells(i, 20), _
                                                  Sheet2.Columns(8), Sheet2.Cells(i, 8), _
                                                  Sheet2.Columns(85), ">" & Sheet2.Cells(i, 85))) Then
                    Sheet2.Cells(i, 86).Resize(1, 2) = Array("1", "4")
                End If 'Columns(3) service number
            End If     'Columns(4) status

        End If 'Columns(4) date
    Next

1 个答案:

答案 0 :(得分:1)

你可以尝试

If Cells(i,8).Value like "REPLACED*MODEM*" OR Cells(i,8).Value like "CHANGED MODEM*" Then