求助Find命令如何查找多个关键字

12111683

A列含有字符“AA”，且B列含有"A","B","C"任意一个，则怎样怎样

传个附件，请老师帮忙指点下代码。

yaozong

要求不是很清楚。

duquancai

你自己需要怎样啊？？？？？

12111683

duquancai 发表于 2018-1-21 16:46
你自己需要怎样啊？？？？？

随便都行，例如给C1写上YES

龙城飞将III

1. Sub ConditionFill()
   
2. 
   
3.         Dim arrInfo As Variant
   
4.         Dim lngRow As Long
   
5.         Dim arrFill As Variant
   
6.         
   
7. 
   
8.         arrInfo = Range(Cells(2, "A"), Cells(Rows.Count, "B").End(xlUp))
   
9.         ReDim arrFill(1 To UBound(arrInfo, 1), 1 To 1)
   
10.         
    
11.         For lngRow = 1 To UBound(arrInfo, 1)
    
12.                 If InStr(arrInfo(lngRow, 1), "弯头") * (InStr(arrInfo(lngRow, 2), "304") + InStr(arrInfo(lngRow, 2), "401") + InStr(arrInfo(lngRow, 2), "A234WPB")) Then
    
13.                         arrFill(lngRow, 1) = "YES"
    
14.                 End If
    
15.         Next
    
16.         
    
17.         Cells(2, "C").Resize(UBound(arrFill, 1), 1) = arrFill
    
18.         
    
19. End Sub
    

复制代码

duquancai

Sub shhsi()
    Range("C:C").ClearContents
    A = Range("A1:C" & Cells(Rows.Count, 1).End(3).Row)
    For i = 1 To UBound(A)
        If Len(A(i, 1)) * InStr(A(i, 1), "弯头") Then
            If (InStr(A(i, 2), "304") + InStr(A(i, 2), "401") + InStr(A(i, 2), "A234WPB")) > 0 Then
                A(i, 3) = "YES"
            End If
        End If
    Next
    Range("A1:C" & Cells(Rows.Count, 1).End(3).Row) = A
End Sub

yuwd3

1. Sub test()
   
2. m = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
3. arr = Range("a1:c" & m)
   
4. For i = 2 To UBound(arr)
   
5.     If arr(i, 1) Like "*弯头*" And (arr(i, 2) Like "*304*" Or arr(i, 2) Like "*401*" Or arr(i, 2) Like "*A234WPB*") Then
   
6.         arr(i, 3) = "YES"
   
7.     End If
   
8. Next
   
9. Range("a1").Resize(m, 3) = arr
   
10. End Sub
    

复制代码

12111683

yuwd3 发表于 2018-1-21 17:20

你好，感谢解答，本意是含有弯头字样，不是单元格只是弯头，能调整下吗、？非常感谢

yuwd3

like "*弯头*" 就是含有弯头

12111683

yuwd3 发表于 2018-1-21 17:33
like "*弯头*" 就是含有弯头

运行了，没有任何结果呀