使用VBA将表格中的数据sheet2的行数据比对sheet1中数据，输出不在sheet1中的数据到...

055678

使用VBA将表格中的数据sheet2的行数据比对sheet1中数据，输出不在sheet1中的数据到sheet3

055678

我自己写了代码但是不知道错在哪里
Sub test()

    Dim arr, arr1, drow, d As Object, i%, j%, k%

    arr = Sheet1.[a1].CurrentRegion
   arr1 = Sheet2.[a1].CurrentRegion
   
    Set d = CreateObject("scripting.dictionary")

For k = 2 To UBound(arr)

        d(arr(k, 1)) = ""
Next
        For i = 2 To UBound(arr1, 1)
            For j = 2 To UBound(arr1, 2)
                If d.exists(arr1(i, j)) Then
                    d.Remove (arr1(i, j))
                    Else

            d(arr1(i, j)) = ""
              'Exit For
              
                End If
            Next
        Next
        drow = Sheet2.[a65536].End(xlUp).Row
         Sheet3.Range("B2").Resize(drow, d.Count) = d.keys
End Sub

uynayna

1. Sub 宏2()
   
2.   arr = Sheet1.[a1].CurrentRegion
   
3.    arr1 = Sheet2.[a1].CurrentRegion
   
4.    
   
5.     Set d = CreateObject("scripting.dictionary")
   
6. 
   
7. For k = 2 To UBound(arr)
   
8. 
   
9.         d(arr(k, 1)) = ""
   
10. Next
    
11.             ReDim crr(1 To UBound(brr), 1 To 100)
    
12.             For j = 2 To UBound(arr1, 2)
    
13.                 If d.exists(arr1(i, j)) Then
    
14.                    m = n + 1
    
15.                    For i = 1 To 100
    
16.                    crr(m, i) = arr1(j, i)
    
17.                    Next
    
18.                 End If
    
19.             Next
    
20.          Sheet3.Range("B2").Resize(UBound(brr), 100) = brr
    
21. End Sub

复制代码

055678

uynayna 发表于 2017-9-17 13:01

你好，你这个brr貌似没定义啊，运行是出错的

uynayna

  你没有数据。无法测试。ReDim crr(1 To UBound(brr), 1 To 100) 这句看见了吗吧。

055678

uynayna 发表于 2017-9-17 13:54
你没有数据。无法测试。ReDim crr(1 To UBound(brr), 1 To 100) 这句看见了吗吧。

我有上传附件啊，还有就是你这个n代表什么？

055678

uynayna 发表于 2017-9-17 13:54
你没有数据。无法测试。ReDim crr(1 To UBound(brr), 1 To 100) 这句看见了吗吧。

看不懂你这是什么意思

uynayna

m=m+1
打字打错了，没有n。

055678

uynayna 发表于 2017-9-17 17:46
m=m+1
打字打错了，没有n。

兄弟我有附件的啊，你要不看下？ 你这个代码我完全没明白

uynayna

你sheet1 空的。