|
- Sub 累加到第一行()
- Dim Arr, i&, j&, k&, L&, Dic As Object, Brr, Crr, Drr, Frr, r&
- Set Dic = CreateObject("Scripting.Dictionary")
- r = Cells(Rows.Count, "B").End(xlUp).Row - 1
- Arr = [B2].Resize(r)
- Brr = [K2].Resize(r)
- Crr = [N2].Resize(r)
- ReDim Drr(1 To r, 0)
- ReDim Frr(1 To r, 0)
- For i = 1 To r
- If Dic.Exists(Arr(i, 1)) Then j = Dic(Arr(i, 1)) Else Dic(Arr(i, 1)) = i: j = i
- Drr(j, 0) = Drr(j, 0) + Brr(i, 1)
- Frr(j, 0) = Frr(j, 0) + Crr(i, 1)
- Next
- [L2].Resize(r) = Drr
- [M2].Resize(r) = Frr
- Set Dic = Nothing
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|