[已解决]怎么使用VBA 查找F列对应值

linshi88

怎么使用VBA 查找F列对应值如果符合“筛选数据”A1的值，返回对应的结果，不符合返回空。 F列对应的值没有出现在 “筛选数据”A1 直接返回结果

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-19 14:43

1. Sub aaa()
   
2. Dim arr, i&, j&, rng As Range, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(2).Range("f2:g" & Sheets(2).[f65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.   d(arr(i, 2)) = arr(i, 1)
   
7. Next i
   
8. arr = Sheets(1).Range("a1:a" & Sheets(1).[a65536].End(3).Row)
   
9. ReDim Preserve arr(1 To UBound(arr), 1 To 4)
   
10. For i = 2 To UBound(arr)
    
11.   If Not d.exists(arr(i, 1)) Or d(arr(i, 1)) = arr(1, 1) Then
    
12.     Set rng = Sheets(2).Columns(1).Find(arr(i, 1), lookat:=xlWhole)
    
13.     If Not rng Is Nothing Then
    
14.       For j = 2 To 4
    
15.         arr(i, j) = rng.Offset(, j - 1)
    
16.       Next j
    
17.     End If
    
18.   End If
    
19. Next i
    
20. Sheets(1).[a1].Resize(UBound(arr), 4) = arr
    
21. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

“筛选数据”工作表内，除了蓝色字体的行，还有很多不是张三的数据，为什么也有值？
不好意思，看明白了，我想想能否不用VBA实现。

linshi88

大灰狼1976 发表于 2017-8-19 14:29
“筛选数据”工作表内，除了蓝色字体的行，还有很多不是张三的数据，为什么也有值？
不好意思，看明白了， ...

是否可以用VBA实现呢，谢谢

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, j&, rng As Range, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets(2).Range("f2:g" & Sheets(2).[f65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6.   d(arr(i, 2)) = arr(i, 1)
   
7. Next i
   
8. arr = Sheets(1).Range("a1:a" & Sheets(1).[a65536].End(3).Row)
   
9. ReDim Preserve arr(1 To UBound(arr), 1 To 4)
   
10. For i = 2 To UBound(arr)
    
11.   If Not d.exists(arr(i, 1)) Or d(arr(i, 1)) = arr(1, 1) Then
    
12.     Set rng = Sheets(2).Columns(1).Find(arr(i, 1), lookat:=xlWhole)
    
13.     If Not rng Is Nothing Then
    
14.       For j = 2 To 4
    
15.         arr(i, j) = rng.Offset(, j - 1)
    
16.       Next j
    
17.     End If
    
18.   End If
    
19. Next i
    
20. Sheets(1).[a1].Resize(UBound(arr), 4) = arr
    
21. End Sub

复制代码

linshi88

大灰狼1976 发表于 2017-8-19 14:43

和我想要的结果一样，非常感谢版主的帮助，谢谢！[em17]

linshi88

大灰狼1976 发表于 2017-8-19 14:43

数据将近1万条速度慢了 会有点卡顿 可以改一下吗

大灰狼1976

可以把单元格操作全部变成字典+数组操作。