请问，这样的两个表格如何比较？

ww0000 · 发表于 2021-1-24 15:41

两表比较.rar (4.16 KB, 下载次数: 14)

凌空一羽 · 发表于 2021-1-24 16:21

Sub lkyy()
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Set d3 = CreateObject("Scripting.Dictionary")
sht1 = Sheet1.UsedRange
sht2 = Sheet2.UsedRange
For Each ii In sht1
If Len(ii) > 0 Then d1(ii) = ""
Next
For Each ii In sht2
If Len(ii) > 0 Then
      If d1.exists(ii) Then
         d3(ii) = ""
      Else
         d2(ii) = ""
      End If
End If
Next
For Each k In d1
If d3.exists(k) Then d1.Remove (k)
Next
Range("a2:c10000").ClearContents
Range("a2").Resize(d1.Count, 1) = Application.Transpose(d1.keys)
Range("b2").Resize(d2.Count, 1) = Application.Transpose(d2.keys)
Range("c2").Resize(d3.Count, 1) = Application.Transpose(d3.keys)
End Sub

凌空一羽 · 发表于 2021-1-24 16:23

两表比较lkyy.zip (11.66 KB, 下载次数: 11)

ww0000 · 发表于 2021-1-24 17:23

凌空一羽发表于 2021-1-24 16:23

谢谢，就是这个效果

		自动登录	找回密码
密码			免费注册

[求助] 请问，这样的两个表格如何比较？

评分