|
- Sub 求和()
- Set d = CreateObject("scripting.dictionary")
- Set dd = CreateObject("scripting.dictionary")
- arr = Sheet1.Range("a2:c8")
- For i = 1 To UBound(arr)
- If Not d.exists(arr(i, 1)) Then
- d(arr(i, 1)) = 1
- Else
- d(arr(i, 1)) = d(arr(i, 1)) + 1
- End If
- If Not dd.exists(arr(i, 1)) Then
- dd(arr(i, 1)) = arr(i, 3)
- Else
- dd(arr(i, 1)) = dd(arr(i, 1)) + arr(i, 3)
- End If
- Next
- Cells(10, 1).Resize(d.Count, 1) = Application.Transpose(d.keys)
- Cells(10, 2).Resize(d.Count, 1) = Application.Transpose(d.items)
- Cells(10, 3).Resize(d.Count, 1) = Application.Transpose(dd.items)
- End Sub
复制代码
|
|