[已解决]用VBA代码按条件处理数据，请高手帮忙！

excel416909716

用VBA代码求每班级平均分，并输出到sheet2表中
原始成绩表在附件中。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-30 18:03

1. Sub Macro1()
   
2. Dim arr, brr(1 To 2000, 1 To 4), d, i&, s&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     If Not d.exists(arr(i, 1)) Then
   
7.         s = s + 1
   
8.         d(arr(i, 1)) = s
   
9.         brr(s, 1) = arr(i, 1)
   
10.         brr(s, 2) = 1
    
11.         brr(s, 3) = arr(i, 4)
    
12.         brr(s, 4) = brr(s, 3) / brr(s, 2)
    
13.     Else
    
14.         n = d(arr(i, 1))
    
15.         brr(n, 2) = brr(n, 2) + 1
    
16.         brr(n, 3) = brr(n, 3) + arr(i, 4)
    
17.         brr(n, 4) = brr(n, 3) / brr(n, 2)
    
18.     End If
    
19. Next
    
20. Sheet2.Activate
    
21. [a1:d1] = Array("班级", "人数", "总分", "平均分")
    
22. Range("a2").Resize(s, 4) = brr
    
23. End Sub

复制代码

跳转到最佳答案楼层

四处逍遥

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6.     Sheets("Sheet2").Activate
   
7.     Sheets("Sheet1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
   
8.                                                    CopyToRange:=Range("A1"), Unique:=True
   
9.     Dim i As Integer
   
10.     With Sheets(2)
    
11.         i = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.         .Cells(1, "b") = "平均分"
    
13.         .Cells(2, "b").Resize(i - 1, 1).Formula = "=AVERAGEIF(Sheet1!A:A,A2,Sheet1!D:D)"
    
14.         .Cells(2, "b").Resize(i - 1, 1) = .Cells(2, "b").Resize(i - 1, 1).Value
    
15.     End With
    
16. End Sub

复制代码

dsmch

1. Sub Macro1()
   
2. Dim arr, brr(1 To 2000, 1 To 4), d, i&, s&, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     If Not d.exists(arr(i, 1)) Then
   
7.         s = s + 1
   
8.         d(arr(i, 1)) = s
   
9.         brr(s, 1) = arr(i, 1)
   
10.         brr(s, 2) = 1
    
11.         brr(s, 3) = arr(i, 4)
    
12.         brr(s, 4) = brr(s, 3) / brr(s, 2)
    
13.     Else
    
14.         n = d(arr(i, 1))
    
15.         brr(n, 2) = brr(n, 2) + 1
    
16.         brr(n, 3) = brr(n, 3) + arr(i, 4)
    
17.         brr(n, 4) = brr(n, 3) / brr(n, 2)
    
18.     End If
    
19. Next
    
20. Sheet2.Activate
    
21. [a1:d1] = Array("班级", "人数", "总分", "平均分")
    
22. Range("a2").Resize(s, 4) = brr
    
23. End Sub

复制代码

dsmch

………………