如何用VBA数组技术找出二列数据的不同

VBA之恋

如何用VBA数组技术找出二列数据的不同之处？比如A列有几十万行数据，D列有几十万行数据，现在以A列为基准，用D列中的数据，循环在A列中进行查到，如找不到，则将没有的信息，放在一数组中，然后释放在一张新增的工作表中。附件中说明，如与上述描述不符，则以此为准。


例.rar (415.4 KB, 下载次数: 16)

2017-10-22 11:38 上传

点击文件名下载附件

小花鹿

这样的问题一般用字典

chis3

用字典再配合數組吧
if not d.exists(arr) 就行了

lsc900707

1. Sub D有A没有()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arA = ActiveSheet.UsedRange
   
4.     m = UBound(arA)
   
5.     ReDim arB(1 To m, 1 To 1)
   
6.     For i = 2 To m
   
7.        d(arA(i, 1)) = ""
   
8.     Next
   
9.     For j = 2 To UBound(arA)
   
10.         If Not d.Exists(arA(j, 4)) Then
    
11.             k = k + 1
    
12.             arB(k, 1) = arA(j, 4)
    
13.         End If
    
14.    Next
    
15.    Sheets.Add After:=Sheets(Sheets.Count)
    
16.    Sheets(Sheets.Count).Name = "D有A没有"
    
17.    Sheets("D有A没有").[a1].Resize(k, 1) = arB
    
18. End Sub

复制代码

一把小刀闯天下

'输出到sheet2，满意来朵小花
Option Explicit

Sub test()
  Dim i, arr, a, b, dic, n, brr
  Set dic = CreateObject("scripting.dictionary")
  With Sheets("sheet1")
    a = .[a1048576].End(xlUp).Row
    b = .[d1048576].End(xlUp).Row
    arr = .Range("a2:d" & IIf(a > b, a, b))
  End With
  ReDim brr(1 To b, 1 To 1)
  For i = 1 To a - 1: dic(arr(i, 1)) = vbNullString: Next
  For i = 1 To b - 1
    If Not dic.exists(arr(i, 4)) Then
      n = n + 1: brr(n, 1) = arr(i, 4)
    End If
  Next
  With Sheets("sheet2").[a:a]
    .ClearContents
    If n > 0 Then .Resize(n, 1) = brr
  End With
End Sub

lsc900707

代码需要审核，先上个附件：

Kaohsing

来个js的





例.zip (389.13 KB, 下载次数: 15)

2017-10-22 16:32 上传

点击文件名下载附件

VBA之恋

朱荣兴 发表于 2017-10-22 13:12

你好，代码真是奇怪了，为何不行呢，没反应呀，

VBA之恋

Kaohsing 发表于 2017-10-22 16:33
来个js的

你好，里面没内容呀