摆脱VLOOKUP，用比较工具（跨工作簿对比、多列对比）

lfangcn · 发表于 2012-5-18 13:07

本帖最后由 lfangcn 于 2012-5-18 13:13 编辑

lizi007 发表于 2012-5-17 14:18
1、因为实际使用的时候，有可能将“选择表列”和“本表列”弄反了，就可以点变换按钮，将选择列相互交换过 ...

我是拿您做的工具做车辆性能对比，其中会有收集不到的数据，这样就会有很多的空格，比如是A2,B3,C5,D6单元格。当我选择4列进行对比时，发现2、3、5行都是不相同行。6行有部分有标示。可以考虑使用IF(X="",IF(Y="","相同","不相同"),IF((COUNTIF(X,Y)>0),"相同","不相同"))类型语句解决该问题。

另一个问题是如果表格中的值是">50"，文本含有一些特殊符号，会被认为是不相同。这个希望能解决。

lizi007 · 发表于 2012-5-21 14:46

lfangcn 发表于 2012-5-18 13:07
我是拿您做的工具做车辆性能对比，其中会有收集不到的数据，这样就会有很多的空格，比如是A2,B3,C5,D6单 ...

好的，多谢提醒，尽快修改

ghzx9388 · 发表于 2012-5-21 18:30

进行多列对比时，有部分有标示是怎么回事，先谢谢楼主，辛苦了！

zhiaizhi520 · 发表于 2012-5-22 10:28

Sub 创建工具栏()
On Error Resume Next
Application.CommandBars("比较工具").Delete
Set bar = CommandBars.Add(Name:="比较工具", MenuBar:=0, temporary:=False, Position:=msoBarTop)
Set bar1 = bar.Controls.Add(Type:=msoControlButton)
With bar1
'.BeginGroup = True
.Caption = "比较工具"
.FaceId = 364
.OnAction = "显示"
.Style = msoButtonIconAndCaption
End With

bar.Visible = True
bar.Enabled = True
End Sub

Sub 显示()
UserForm1.Show 0End Sub
老师，提示错误，要调试

zhiaizhi520 · 发表于 2012-5-22 10:30

呵呵，可以了。。谢谢...

Eutopian · 发表于 2012-5-22 10:57

只能限制選擇A~Z列作對比, 建議開放給用戶自行選擇

mcu2002 · 发表于 2012-5-29 13:02

謝謝啦，不錯的東西！

f8b1987 · 发表于 2012-6-11 16:42

测试，存在bug的说

guangfeng · 发表于 2012-6-28 16:40

ddddddddddddddddddddddddddddddddddddddddddddd

余方 · 发表于 2012-7-21 08:57

好东西，下载学习，谢谢

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

[分享] 摆脱VLOOKUP，用比较工具（跨工作簿对比、多列对比）