请高手帮忙看这代码怎么写

神往之地

请帮忙看下附件中想要达成的结果，应该写怎么样的VBA.谢谢！

windyjw007

同一工单号同一日期是否会出现同样的规格型号？{:3212:}

windyjw007

按照不会出现同样型号写了段，看看是否ok吧！{:3512:}

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim ar, br(1 To 10000, 1 To 3)
   
4.     Dim sr As String
   
5.     Dim i As Long, j As Long
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     ar = Cells(1, 1).CurrentRegion
   
8.     j = 1
   
9.     br(j, 1) = "工单单号": br(j, 2) = "工单日期": br(j, 3) = "规格型号"
   
10.     For i = 2 To UBound(ar)
    
11.         sr = ar(i, 2) & vbTab & ar(i, 3)
    
12.         If d.exists(sr) Then
    
13.             br(d(sr), 3) = br(d(sr), 3) & "," & ar(i, 6)
    
14.         Else
    
15.             j = j + 1
    
16.             d.Add sr, j
    
17.             br(j, 1) = ar(i, 2)
    
18.             br(j, 2) = ar(i, 3)
    
19.             br(j, 3) = ar(i, 6)
    
20.         End If
    
21.     Next i
    
22.     With Cells(1, 17)
    
23.         .Resize(Rows.Count).ClearContents
    
24.         .Resize(j, 3) = br
    
25.     End With
    
26. End Sub

复制代码

神往之地

windyjw007 发表于 2017-6-20 11:32
按照不会出现同样型号写了段，看看是否ok吧！

谢谢帮助，学习了。