[已解决]用VBA 查表通过属性返回数字

laoau138

用VBA  查表通过属性返回数字

最佳答案

月排行榜 / 总排行榜

ilovelittle

2017-3-7 16:37

1. Sub test()
   
2.     Dim arr(), i, i1, k
   
3.     brr = [d1:f6]
   
4.     crr = [a8:e8]
   
5.     ReDim arr(1 To 2, 1 To UBound(crr, 2))
   
6.     For i = 1 To UBound(crr, 2)
   
7.         For i1 = 1 To UBound(brr)
   
8.             If crr(1, i) = brr(i1, 3) Then
   
9.             k = k + 1
   
10.                 arr(1, k) = brr(i1, 1)
    
11.                 arr(2, k) = brr(i1, 2)
    
12.                 GoTo 100
    
13.             End If
    
14.         Next
    
15. 100:
    
16.     Next
    
17.     Range("a12").Resize(2, k) = arr
    
18. End Sub
    

复制代码

知道你喜欢数组，来一个。

跳转到最佳答案楼层

ilovelittle

好无聊耶

=INDEX($D$1:$E$5,MATCH(A$8,$F$1:$F$5,),ROW(A1))

数组
右拉，下拉。

laoau138

ilovelittle 发表于 2017-3-7 13:29
好无聊耶

=INDEX($D$1:$E$5,MATCH(A$8,$F$1:$F$5,),ROW(A1))

请用VBA数组解决

ilovelittle

1. Sub test()
   
2.     Dim arr(), i, i1, k
   
3.     brr = [d1:f6]
   
4.     crr = [a8:e8]
   
5.     ReDim arr(1 To 2, 1 To UBound(crr, 2))
   
6.     For i = 1 To UBound(crr, 2)
   
7.         For i1 = 1 To UBound(brr)
   
8.             If crr(1, i) = brr(i1, 3) Then
   
9.             k = k + 1
   
10.                 arr(1, k) = brr(i1, 1)
    
11.                 arr(2, k) = brr(i1, 2)
    
12.                 GoTo 100
    
13.             End If
    
14.         Next
    
15. 100:
    
16.     Next
    
17.     Range("a12").Resize(2, k) = arr
    
18. End Sub
    

复制代码

知道你喜欢数组，来一个。

laoau138

ilovelittle 发表于 2017-3-7 16:37
知道你喜欢数组，来一个。

可以多来几个