|
- Sub 汇总()
- monthrr = Array("JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a2:d10") '源数据区域,请自行调整
- ReDim brr(1 To UBound(arr) + 1, 1 To 13)
- For i = 2 To UBound(arr)
- x = arr(i, 2)
- If Not d.exists(x) Then
- n = n + 1
- brr(n, 1) = x
- d(x) = n
- End If
- m = Month(arr(i, 1))
- If mmax < m Then mmax = m '出现的最大月份
- p = d(x)
- If arr(i, 4) > 0 Then brr(p, m + 1) = brr(p, m + 1) + arr(i, 4)
- Next
- If n > 0 Then
- [b16].Resize(1, mmax) = monthrr '出现的最大月份为横表头
- [a17].Resize(n, mmax + 1) = brr
- End If
- End Sub
复制代码 |
|