|
本帖最后由 laoau138 于 2017-3-31 16:45 编辑
VBA只用数组不要用字典 汇总不同班级总分
- Sub 汇总()
- arr = [a1].CurrentRegion
- Dim brr(1 To 100, 1 To 2)
- For i = 2 To UBound(arr)
- bj = Val(arr(i, 1))
- If bj > maxbj Then maxbj = bj
- If brr(bj, 1) = "" Then brr(bj, 1) = bj & "班"
- brr(bj, 2) = brr(bj, 2) + arr(i, 3)
- Next
- [e7].Resize(maxbj, 2) = brr
- Range("e7").Resize(maxbj, 2).SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
- End Sub
复制代码
|
|