求助：两个EXCEL合并覆盖相同内容

zxm6453389

Book1.rar (2.09 KB, 下载次数: 83)

2011-3-29 17:00 上传

点击文件名下载附件

Zamyi

http://club.excelhome.net/thread-698873-1-1.html正好用上：
Public Sub test()
Set d = CreateObject("scripting.dictionary")
r1 = [b1:f3]
r2 = [b18:f20]
For i = 1 To UBound(r1)
d(r1(i, 1) & vbTab & r1(i, 2) & vbTab & r1(i, 3) & vbTab) = r1(i, 4) & vbTab & r1(i, 5)
Next
For i = 1 To UBound(r2)
d(r2(i, 1) & vbTab & r2(i, 2) & vbTab & r2(i, 3) & vbTab) = r2(i, 4) & vbTab & r2(i, 5)
Next
Call XieRu(d.keys, [i15])
Call XieRu(d.items, [l15])
Set d = Nothing
End Sub
Public Sub XieRu(a, R As Range)
Dim d As Object
Set d = New DataObject
d.SetText Join(a, vbLf)
d.PutInClipboard
R.Select
ActiveSheet.Paste
Set d = Nothing
End Sub

zxm6453389

这个比较麻烦啊，关键我的列数还不一定就是这么多。

桃之夭夭。。

把表格复制下来修改一下，然后透视，整理，搞定