如何比较两个EXCEL的内容不同单元格（打乱顺序）

maozheng110 · 发表于 2019-8-17 21:56

本帖最后由 maozheng110 于 2019-8-17 22:42 编辑

比较表格示例.rar (8.55 KB, 下载次数: 21) 把其中一个A表格放满数据后，任意交换两个单元格的数据打乱后成为表格B，然后B表格中删除其中一个单元格的内容（清除某单元格内容），然后用VBA找出B单元格中清除单元格的内容，注：A表中某些数据是重复的

maditate · 发表于 2019-8-17 22:03

A列有N个可以是重复出现的字符串（N个单元格）。将A列复制到B列，再将B列单元格顺序随机打乱。此时如果要比较AB两列，也不可能再保证原来A列的某个字符串就是B列的某个字符了。因A列字符串有重复，原序中某字符串排序可能是1，2，3，到了B列打乱后，可能变成了3，2，1。到底是3对就A列的1，还是2,对应A列的1。

如果在B列中随机删除几个字符串，通过比较，可以查出删除了什么，但不能比对出删除的那个序号上的字符串。

maozheng110 · 发表于 2019-8-17 22:07

maditate 发表于 2019-8-17 22:03
A列有N个可以是重复出现的字符串（N个单元格）。将A列复制到B列，再将B列单元格顺序随机打乱。此时如果要比 ...

只要找出删除了什么，但不止只有1列有数据

maozheng110 · 发表于 2019-8-17 22:08

可能可以用VLOOKUP

maozheng110 · 发表于 2019-8-17 22:10

maozheng110 发表于 2019-8-17 22:08
可能可以用VLOOKUP

找到了相同的内容就PASS，但是有重复的比较麻烦

maozheng110 · 发表于 2019-8-17 22:41

比较表格示例.rar (8.55 KB, 下载次数: 29)

maozheng110 · 发表于 2019-8-20 16:12

看来这个应用太特殊了 ……^_^

大灰狼1976 · 发表于 2019-8-20 16:47

Sub test()
Dim arr, d As Object, ar
Set d = CreateObject("scripting.dictionary")
arr = Sheets(1).[a1].CurrentRegion
For Each ar In arr
d(ar) = d(ar) + 1
Next
arr = Sheets(2).[a1].CurrentRegion
For Each ar In arr
d(ar) = d(ar) - 1
If d(ar) = 0 Then d.Remove ar
Next
arr = d.keys
MsgBox arr(0)
End Sub

复制代码

大灰狼1976 · 发表于 2019-8-20 16:50

这样更严谨一点。

Sub test()
Dim arr, d As Object, ar
Set d = CreateObject("scripting.dictionary")
arr = Sheets(1).[a1].CurrentRegion
For Each ar In arr
d(ar) = d(ar) + 1
Next
arr = Sheets(2).[a1].CurrentRegion
For Each ar In arr
If ar <> "" Then
d(ar) = d(ar) - 1
If d(ar) = 0 Then d.Remove ar
End If
Next
arr = d.keys
MsgBox arr(0)
End Sub

复制代码

maozheng110 · 发表于 2019-8-23 10:27

可以用，厉害了多谢大灰狼1976

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

[讨论] 如何比较两个EXCEL的内容不同单元格（打乱顺序）

最新热点 /1