|
分类别插入合计行,B列并且分类汇总,如表二,
谢谢
本帖最后由 爱疯 于 2011-8-14 12:51 编辑
- Sub a()
- Dim arrA, arrB(1 To 9999, 1 To 2)
- Dim i, s, n
- With Sheet1
- arrA = .Range("a3:b" & .Range("a3").End(xlDown).Row + 1)
- End With
-
- For i = 1 To UBound(arrA) - 1
- n = n + 1
- s = s + arrA(i, 2)
- arrB(n, 1) = arrA(i, 1)
- arrB(n, 2) = arrA(i, 2)
- If arrA(i, 1) <> arrA(i + 1, 1) Then
- arrB(n, 1) = arrA(i, 1)
- arrB(n, 2) = arrA(i, 2)
- n = n + 1
- arrB(n, 1) = "合计"
- arrB(n, 2) = s
- s = 0
- End If
- Next i
-
- With Sheet2
- .Range("a3:b9999").Clear
- .[a3].Resize(n, 2) = arrB
- End With
- End Sub
复制代码
|
|