在EXCEL中，比对两栏的差异，显示差异的地方

hongkele · 发表于 2011-4-14 17:28

以C栏为标准，显示出A栏内容与C栏差异，标识出来。如附件上注明，或者有更好的方法检查都行，谢谢。

lulangjie · 发表于 2011-4-14 18:09

不知道是否可以满足你的要求

lulangjie · 发表于 2011-4-14 18:14

你可以向Excel Home侠圣级咨询，前几天我也遇到类似问题

zbwxlxy · 发表于 2011-4-14 18:23

标颜色比较难，但可以标出字符位置

gfs57 · 发表于 2011-4-14 18:57

原帖由 hongkele 于 2011-4-14 17:28 发表
以C栏为标准，显示出A栏内容与C栏差异，标识出来。如附件上注明，或者有更好的方法检查都行，谢谢。

做了个“条件格式”的，请参考。你说的要具体的标出差异的字符的颜色来，这个比较难，恐怕要动用 VBA 才能做到。如 A18 格里的“1@D12” 与 C18 格里的“1@D12 ”，C18 格里在右侧多出两个半角空格，这在A18 里就很难表示了。

hongkele · 发表于 2011-4-14 19:40

原帖由 zbwxlxy 于 2011-4-14 18:23 发表
标颜色比较难，但可以标出字符位置

可以标出字符位置，可否做一个参考，谢谢。

chzhsxg · 发表于 2011-4-16 19:37

用数据有效性的序列和公司审核

lulangjie · 发表于 2011-4-19 22:54

不好意思，上次宏忘记录入了，这个应该可以满足你的需要，直接点按钮1 就是了

lulangjie · 发表于 2011-4-19 23:04

宏代码为：Sub Macro1()
Dim arr, brr, d As Object, dic As Object
Columns(2).Interior.ColorIndex = xlNone
Columns(3).ClearContents
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictionary")
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
brr = Range("b1:b" & Range("b65536").End(xlUp).Row)
For i = 1 To UBound(brr)
d(brr(i, 1)) = ""
Next i
For i = 1 To UBound(arr)
dic(arr(i, 1)) = ""
Next i
For i = 1 To UBound(brr)
If Not dic.exists(brr(i, 1)) Then Cells(i, 2).Interior.ColorIndex = 3
Next i
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then arr(i, 1) = ""
Next i
Range("c1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

lulangjie · 发表于 2011-4-19 23:09

请点击按钮1

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

[求助] 在EXCEL中，比对两栏的差异，显示差异的地方

回复