如何两个相同格式的文件合并在一起，数据有重复？

wangweihebtu

有两个格式相同的excle文件，数据获取方式不同，所以内容有的只有1文件中有，有的只有2文件中有，有的都有，重复数据以1文件为准，求教如何合并在一起？谢谢！

DIFFIE89

1. Sub CombineBooks()
   
2.     Dim i As Long, j As Long
   
3.    
   
4.     For i = 2 To 21
   
5.         For j = 5 To 9
   
6.             If Cells(i, j) = "" Then Workbooks("2").Sheets("sheet1"). _
   
7.                 Cells(i, j).Copy Cells(i, j)
   
8.         Next j
   
9.     Next i
   
10. End Sub

复制代码

lsc900707

字典处理：

1. Sub gj23w98()
   
2.     Set wb = GetObject(ThisWorkbook.Path & "\2.xlsx")
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With wb
   
5.         arr = .Sheets(1).[a1].CurrentRegion
   
6.         For i = 2 To UBound(arr)
   
7.             d(arr(i, 2)) = Array(arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8), arr(i, 9))
   
8.         Next
   
9.     End With
   
10.     wb.Close False
    
11.     brr = [a1].CurrentRegion
    
12.     For i = 2 To UBound(brr)
    
13.         For j = 0 To 4
    
14.             If d.exists(brr(i, 2)) And Len(brr(i, j + 5)) = 0 Then brr(i, j + 5) = d(brr(i, 2))(j)
    
15.         Next
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18.     Set wb = Nothing
    
19.     Set d = Nothing
    
20. End Sub

复制代码

lsc900707

附件供测试参考：