请教LOOKUP函数VBA用法

笨笨鹿

请问LOOKUP函数，这段函数：LOOKUP(1,0/FIND($A$1:$A$10,D1),$B$1:$B$10)的VBA编码怎么写的，具体请看附件，谢谢了。

不知道为什么

用数组循环下，不就可以了？

lenghonghai601

1. Sub test()
   
2. Dim arr, brr, crr, b As Boolean
   
3. arr = Sheet1.Range("a1").CurrentRegion
   
4. brr = Sheet1.Range("d1").CurrentRegion
   
5. ReDim crr(1 To UBound(brr))
   
6. For i = 1 To UBound(brr)
   
7.     b = False
   
8.     s = brr(i, 1)
   
9.     For j = 1 To UBound(arr)
   
10.         If InStr(s, arr(j, 1)) > 0 Then
    
11.             crr(i) = arr(j, 2)
    
12.             b = True
    
13.             Exit For
    
14.         End If
    
15.     Next j
    
16.     If b = False Then crr(i) = ""
    
17. Next i
    
18. Range("H1").Resize(UBound(brr), 1) = WorksheetFunction.Transpose(crr)
    
19. End Sub
    

复制代码

笨笨鹿

lenghonghai601 发表于 2018-7-6 15:22

非常感谢，太谢谢了。

lrh788

lenghonghai601 发表于 2018-7-6 15:22

老师代码中b = False         b = True
是什么意思？

jiminyanyan

lrh788 发表于 2018-7-6 20:06
老师代码中b = False         b = True
是什么意思？

b = False   假      b = True　真

lrh788

jiminyanyan 发表于 2018-7-6 20:09
b = False   假      b = True　真

为哈要用这句，有什么意义吗？可否不用？

jiminyanyan

lrh788 发表于 2018-7-6 20:10
为哈要用这句，有什么意义吗？可否不用？

可以呀，每个人解决问题的思路不一样。

lrh788

jiminyanyan 发表于 2018-7-6 20:14
可以呀，每个人解决问题的思路不一样。

我试了下，取消这两句，代码也能正确运行，这样的表达方式有什么意义？

jiminyanyan

………………