代码目前只能判断 【未到货】表的，不能将【未到货】与【已到货】两表合并查找重复项

roc.jame

代码目前只能判断 【未到货】表的，不能将【未到货】与【已到货】两表合并查找重复项
请教各位大神代码改如何修改？

ione_fox

1. Sub Main()
   
2.     Dim oSht As Worksheet
   
3.     Dim I&, J&, Ar, Br
   
4.     Dim Dic, Key$, K&
   
5.     Dim Col()
   
6.     ReDim Br(1 To 10000, 1 To 13)
   
7.     Col = Array(5, 6, 11)
   
8.     Set Dic = CreateObject("Scripting.Dictionary")
   
9.     For Each oSht In Worksheets
   
10.         If oSht.Name <> "检查表" Then
    
11.             Ar = oSht.Range("a1").CurrentRegion
    
12.             oSht.Cells.Interior.Color = xlNone
    
13.             For I = 3 To UBound(Ar)
    
14.                 Key = Ar(I, Col(0)) & Ar(I, Col(1)) & Ar(I, Col(2))
    
15.                 If Dic(Key) = "" Then
    
16.                     Dic(Key) = 1
    
17.                 Else
    
18.                 K = K + 1
    
19.                 With oSht
    
20.                     .Range(.Cells(I, 1), .Cells(I, 13)).Interior.Color = vbRed
    
21.                 End With
    
22.                     For J = 1 To UBound(Ar, 2)
    
23.                         Br(K, J) = Ar(I, J)
    
24.                     Next J
    
25.                 End If
    
26.             Next I
    
27.             Erase Ar
    
28.         End If
    
29.     Next
    
30.     Sheets("检查").Range("a3").Resize(K, 13) = Br
    
31. End Sub
    

复制代码

roc.jame

每人看啊，我自己拖一下吧

roc.jame

ione_fox 发表于 2019-2-18 10:31

请问能帮忙注释下不？复杂的一下子还理解不了

13825719951

亲，给你个思路，数据记录和查询界面的思维要分开。

roc.jame

13825719951 发表于 2019-2-26 10:52
亲，给你个思路，数据记录和查询界面的思维要分开。

谢谢亲，我已经修改好了。你的图片挺好的，能上传分享吗？