拜请高手将明细表汇总到总表

lushang2018

lushang2018

1. Sub 测试()
   
2.     Dim i%, j%, arr
   
3.     Dim dic As Object, key
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     arr = Sheet1.Range("A1").CurrentRegion.Value
   
6.     For j = 1 To UBound(arr, 2) Step 2
   
7.         For i = 2 To UBound(arr)
   
8.             If arr(i, j) <> "" Then
   
9.                 key = arr(i, j) & arr(1, j)
   
10.                 dic(key) = arr(i, j + 1)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     For i = 2 To Sheet2.Cells(Rows.Count, "B").End(xlUp).Row
    
15.         For j = 3 To Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column
    
16.             If Sheet2.Cells(i, 2) <> "" Then
    
17.                 key = Sheet2.Cells(i, 2) & Sheet2.Cells(1, j)
    
18.                 Sheet2.Cells(i, j) = dic(key)
    
19.             End If
    
20.         Next
    
21.     Next
    
22. End Sub

复制代码