[已解决]求大神帮我看看代码 以上表

釜底抽薪

总的来说 INDEX+MATCH  可以运行 只是查找内容不全，我在前面加了个 LEFT 就是不能运行了 提示好像是不能取得MATCH的值。我检查了也不行
求各位老师指点，简化下

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-23 09:35

在属性表内运行。

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, rng As Range
   
3. arr = Range("a2:a" & [a65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 3)
   
5. For i = 1 To UBound(arr)
   
6.   Set rng = Sheets(3).[a1].CurrentRegion.Find(arr(i, 1), lookat:=xlWhole)
   
7.   If Not rng Is Nothing Then
   
8.     For j = 1 To 3
   
9.       brr(i, j) = rng.Offset(, j)
   
10.     Next j
    
11.   End If
    
12. Next i
    
13. [e2].Resize(UBound(brr), 3) = brr
    
14. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

在属性表内运行。

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, rng As Range
   
3. arr = Range("a2:a" & [a65536].End(3).Row)
   
4. ReDim brr(1 To UBound(arr), 1 To 3)
   
5. For i = 1 To UBound(arr)
   
6.   Set rng = Sheets(3).[a1].CurrentRegion.Find(arr(i, 1), lookat:=xlWhole)
   
7.   If Not rng Is Nothing Then
   
8.     For j = 1 To 3
   
9.       brr(i, j) = rng.Offset(, j)
   
10.     Next j
    
11.   End If
    
12. Next i
    
13. [e2].Resize(UBound(brr), 3) = brr
    
14. End Sub

复制代码

釜底抽薪

大灰狼1976 发表于 2017-8-23 09:35
在属性表内运行。

感谢老师的帮助，我在单元格里面加了 sheet1  这个就是让它在属性不里运行啊

大灰狼1976

不好意思，我没有看你的代码。
既然用VBA了，建议尽量不要用工作表函数的思维去做，当然这不是绝对的。

釜底抽薪

大灰狼1976 发表于 2017-8-23 10:03
不好意思，我没有看你的代码。
既然用VBA了，建议尽量不要用工作表函数的思维去做，当然这不是绝对的。

不好意思  回错