使用vba编辑一个程序对比两列数据并进行计算

路的前方是梦想

如附件：需求是对比列1和列4两列数据，如果列1中的数据在列4中，则该数据在列2对应的格子中显示1。请各位老师不吝赐教，谢谢！

LIUZHU

用公式吧，在B3单元格中收入=IF(ISERROR(VLOOKUP(A3,D:D,1,)),"",1)，往下拉

3190496160

这个公式就尅轻松搞定，没必要用代码吧

lushang2018

1. Sub 数据核对()
   
2.     Dim i, arr, brr
   
3.     Sheet1.Activate
   
4.     arr = Range("A2").CurrentRegion
   
5.     brr = Range("D2").CurrentRegion
   
6.     Dim dic As Object, key As String
   
7.     Set dic = CreateObject("scripting.dictionary")
   
8.     For i = 2 To UBound(brr)
   
9.         key = brr(i, 1)
   
10.         dic(key) = ""
    
11.     Next
    
12.     For i = 2 To UBound(arr)
    
13.         key = arr(i, 1)
    
14.         If dic.Exists(key) Then
    
15.             Cells(i + 1, 2) = 1
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码

lushang2018

试一试这一个