[求助]将两个Excel中的数据进行对比的方法？

znevq

bajifeng 发表于 2015-12-20 19:29
请给出 表1、表二 需要做对比的 数据的起始行
以便使代码更简洁，少做一个起始判断。

都是在B列，起始行的数据1个是03FFA000，一个是A000
如果需要固定的话，那就定成图片中的行数
谢谢老师

znevq

解0人 发表于 2015-12-20 19:25
你的附件里面，excel格式和图片中的格式不一样，是不是忽略图片，按照你的excel中的数据和格式做？

图片是真实数据，但是没办法copy，因为公司不允许
附件是模拟的数据，大概应该是一致的
按照图片格式或者按照附件格式都可以
谢谢老师了！

bajifeng

znevq 发表于 2015-12-20 20:27
都是在B列，起始行的数据1个是03FFA000，一个是A000
如果需要固定的话，那就定成图片中的行数
谢谢老师

不需要固定行数，
只是想知道，你图片中的数据是从第几行开始。。。

bajifeng

你附件的表1 是从第三行开始的。

bajifeng

就是行标的意思，就是最左边的数字标签，不是问你从哪个数据开始比较。

znevq

bajifeng 发表于 2015-12-20 20:33
不需要固定行数，
只是想知道，你图片中的数据是从第几行开始。。。

表1  第8L，表2  第6L

znevq

bajifeng 发表于 2015-12-20 20:35
就是行标的意思，就是最左边的数字标签，不是问你从哪个数据开始比较。

老师不好意思，表1  B8；表2 B6

bajifeng

1. Sub bajifeng()  'by: bajifeng
   
2. 'Thursday, December 20, 2015
   
3. Dim crr()
   
4. fn = Array("1.xls", "2.xls")
   
5. Workbooks.Open ThisWorkbook.Path & "" & fn(0)
   
6. arr = ActiveSheet.UsedRange
   
7. ActiveWorkbook.Close False
   
8. Workbooks.Open ThisWorkbook.Path & "" & fn(1)
   
9. brr = ActiveSheet.UsedRange
   
10. ActiveWorkbook.Close False
    
11. Set d = CreateObject("scripting.dictionary")
    
12. Set d1 = CreateObject("scripting.dictionary")
    
13. Set d2 = CreateObject("scripting.dictionary")
    
14. 
    
15. For i = 3 To UBound(arr)
    
16.     d1(arr(i, 2)) = arr(i, 6)
    
17.     d(arr(i, 2)) = ""
    
18. Next
    
19. k1 = d1.keys
    
20. t1 = d1.items
    
21. 
    
22. For i = 3 To UBound(brr)
    
23.     d2(brr(i, 2)) = brr(i, 6)
    
24.     d(brr(i, 2)) = ""
    
25. Next
    
26. k2 = d2.keys
    
27. t2 = d2.items
    
28. k = d.keys
    
29. 
    
30. ReDim crr(1 To d.Count, 1 To 4)
    
31. For i = 0 To d.Count - 1
    
32. 
    
33.     crr(i + 1, 1) = k(i)
    
34.     '1
    
35.     For i1 = 0 To d1.Count - 1
    
36.         If k(i1) = k(i) Then crr(i + 1, 2) = "'" & t1(i1)
    
37.     Next
    
38.     '2
    
39.     For i2 = 0 To d2.Count - 1
    
40.         If k(i2) = k(i) Then crr(i + 1, 3) = "'" & t2(i2)
    
41.     Next
    
42.     '对比结果
    
43.     If crr(i + 1, 2) = crr(i + 1, 3) Then
    
44.         crr(i + 1, 4) = "OK"
    
45.     Else
    
46.         crr(i + 1, 4) = "NG"
    
47.     End If
    
48. 
    
49. Next
    
50. [F2:i2].Resize(d.Count) = crr
    
51. End Sub

复制代码

bajifeng

znevq 发表于 2015-12-20 20:42
老师不好意思，表1  B8；表2 B6

根据你的附件表1，表2做的，要是起始行变了，自己改下。

bajifeng

>>>>>>>>>>>>>>>>>>>>