用vba数组的方法实现查找

weide_yang

想要用vba数组的方法实现：用表2的数据在表1中查找，找到后做出标识，恳请老师赐教，谢谢！
附件中数据很少，实际要操作的数据很多。


请参附件。

lushang2018

1. Sub Test()
   
2.     Dim i, j, k, arr, brr
   
3.     Dim dic As Object, key As String, keys, items
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 2 To Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
   
6.         key = Sheet2.Cells(i, 1)
   
7.         dic(key) = ""
   
8.     Next
   
9.     For i = 2 To Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
   
10.         key = Sheet1.Cells(i, 1)
    
11.         If dic.Exists(key) Then
    
12.             Sheet1.Cells(i, 2) = "kzz"
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

lushang2018

代码仅供参考！

杨建营

请楼主参考。

剑指E

1. Sub nnmmm()
   
2.     Dim ar, br, cr(), i&, j&
   
3.     ar = Sheet1.Range("a1").CurrentRegion
   
4.     br = Sheet2.Range("a1").CurrentRegion
   
5.     ReDim cr(1 To UBound(ar), 1 To 1)
   
6.     For i = 1 To UBound(ar)
   
7.         For j = 1 To UBound(br)
   
8.             If ar(i, 1) = br(j, 1) Then
   
9.                 cr(i, 1) = "kzz"
   
10.                 Exit For
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Sheet1.Range("b1").Resize(UBound(ar) * 2).ClearContents
    
15.     Sheet1.Range("b1").Resize(UBound(ar)) = cr
    
16. End Sub

复制代码

cjc209

思路就是把表二数据建立一个字典 在去找就快了 简单

cjc209

一键生成            

mmwwdd

weide_yang

感谢各位老师帮助！可以解决问题了！