[字典与数组二期1班] 第3讲作业上交帖

335081548

其他还没做出来

1. Sub 必做二_5201314()
   
2. '学号A018 论坛ID:5201314
   
3.     Dim dic As New Dictionary
   
4.     Dim dic1 As New Dictionary
   
5.     Dim dic2 As New Dictionary
   
6.     Dim arr, sht As Worksheet
   
7.     Dim DicKeys, k As Integer
   
8.     Dim i As Integer
   
9.     Dim LastRow As Integer
   
10.     Dim brr(1 To 12, 1 To 5)
    
11.     For Each sht In Sheets
    
12.         If sht.Name = "必二1" Or sht.Name = "必二2" Then
    
13.             LastRow = sht.Range("A65536").End(xlUp).Row
    
14.             arr = sht.Range("A1:E" & LastRow).Value
    
15.             For i = 2 To LastRow
    
16.                 If Not dic.Exists(arr(i, 5)) Then k = k + 1: dic(arr(i, 5)) = k
    
17.                 If Not dic1.Exists(arr(i, 2)) Then dic1(arr(i, 2)) = arr(i, 2)
    
18.                 brr(dic1(arr(i, 2)), dic(arr(i, 5))) = dic2(dic1(arr(i, 2)) & dic(arr(i, 5))) + arr(i, 4)
    
19.             Next
    
20.         End If
    
21.     Next
    
22.     DicKeys = dic.Keys
    
23.     With Sheets("必做二")
    
24.         .Range("C:G").ClearContents
    
25.         .Range("C1").Resize(1, dic.Count) = Application.Transpose(Application.Transpose(DicKeys))
    
26.         .Range("C2").Resize(12, dic.Count) = brr
    
27.     End With
    
28. End Sub
    

复制代码

jsgslgd

还没做好，只好缺交了。

Benol

原来已经开帖了，难怪吴姐说来不及了。逃作业了。。。