新手求教！！谢谢查找指定数据，返回

whq_1020

在列查找指定数据，然后返工B列。请大神帮忙谢谢 查找返回11111.zip (8.06 KB, 下载次数: 6)

2019-8-20 19:58 上传

点击文件名下载附件

谢谢

liulang0808

1. Sub test()
   
2.     arr = Array("HC1Pr", "C1Pr", "c2", "d8", "d2qi", "c1")
   
3.     brr = [a1].CurrentRegion
   
4.     For j = 2 To UBound(brr)
   
5.         str1 = ""
   
6.         For i = 0 To UBound(arr)
   
7.             If InStr(brr(j, 1), arr(i)) > 0 Then
   
8.                 str1 = str1 & "," & arr(i)
   
9.             End If
   
10.         Next i
    
11.         If Len(str1) > 0 Then brr(j, 2) = Mid(str1, 2)
    
12.     Next j
    
13.     [a1].CurrentRegion = brr
    
14. End Sub
    

复制代码

whq_1020

C:\Users\Administrator\Desktop\11.png

老师你好！运行后好像不行，第3行还有两个，
帮忙看看谢谢了！

whq_1020

liulang0808 发表于 2019-8-20 20:06

老师你好！运行后好像不行，第3行还有两个，
帮忙看看谢谢了！

whq_1020

liulang0808 发表于 2019-8-20 20:06

老师帮忙看看，运行后，第3行还有两个，下面没有填充，谢谢了！！

liulang0808

whq_1020 发表于 2019-8-20 20:37
老师帮忙看看，运行后，第3行还有两个，下面没有填充，谢谢了！！

1. Sub test()
   
2.     arr = Array("HC1Pr", "C1Pr", "c2", "d8", "d2qi", "c1")
   
3.     brr = [a1].CurrentRegion
   
4.     For j = 2 To UBound(brr)
   
5.         str1 = ""
   
6.         For i = 0 To UBound(arr)
   
7.             If InStr(LCase(brr(j, 1)), LCase(arr(i))) > 0 Then
   
8.                 str1 = str1 & "," & arr(i)
   
9.             End If
   
10.         Next i
    
11.         If Len(str1) > 0 Then brr(j, 2) = Mid(str1, 2)
    
12.     Next j
    
13.     [a1].CurrentRegion = brr
    
14. End Sub
    

复制代码

whq_1020

liulang0808 发表于 2019-8-20 20:45

谢谢老师！
但是运行之后，会同时出现包含的字符，比如查找这个HC1pr，会返回HC1Pr,c1pr这两个字符串

everbest2015

提问老是挤牙膏不太好

whq_1020

everbest2015 发表于 2019-8-21 10:52
提问老是挤牙膏不太好

谢谢多多包涵，新手中的新手

liulang0808

whq_1020 发表于 2019-8-21 08:34
谢谢老师！
但是运行之后，会同时出现包含的字符，比如查找这个HC1pr，会返回HC1Pr,c1pr这两个字符串

因为有字符串的包含关系的，所以存在这样的问题。
如果仅仅提取一个的话，可以直接跳出循环