学习字典过程中的一个练习

Learner2022

1. 
   
2. Public Sub PriceList()
   
3. Dim d As Object, p As Object, i, arr, brr, UpRow%, C%
   
4. Set d = CreateObject("scripting.dictionary")
   
5. Set p = CreateObject("scripting.dictionary")
   
6. arr = Range("A1:C" & [C1].End(xlDown).Row)
   
7. For i = 2 To UBound(arr)
   
8.     d(arr(i, 1)) = d(arr(i, 1)) + 1
   
9.     p(arr(i, 2)) = arr(i, 3)
   
10.     UpRow = [E500].End(xlUp).Row
    
11.             If d(arr(i, 1)) = 1 Then
    
12.                 With Range(Cells(UpRow + 2, "E"), Cells(UpRow + 2, "F"))
    
13.                     .Merge
    
14.                     .Value = arr(i, 1)
    
15.                     .HorizontalAlignment = xlCenter
    
16.                 End With
    
17.                 Cells(UpRow + 3, 5).Value = Application.WorksheetFunction.Transpose(arr(i, 2))
    
18.                 Cells(UpRow + 3, 6).Value = Application.WorksheetFunction.Transpose(p(arr(i, 2)))
    
19.             Else
    
20.                 Cells(UpRow + 1, 5).Value = Application.WorksheetFunction.Transpose(arr(i, 2))
    
21.                 Cells(UpRow + 1, 6).Value = Application.WorksheetFunction.Transpose(p(arr(i, 2)))
    
22.             End If
    
23. Next
    
24. End Sub
    

复制代码

学习一晚上字典的一个成果，希望大神们能指点一下，我总觉得有点绕来绕去的思路不清晰

这个macro主要是将catagory的作为一个合并单元格后的表头，下面是product和price，然后空一行继续下一个catagory

半百

如果product有重复怎么办？在一个catagory里重复，或在多个catagory里重复。
Application.WorksheetFunction.Transpose(arr(i, 2))，单个数据不用转置了吧。