用vba分类统计.如何编写
答案:1 悬赏:80 手机版
解决时间 2021-01-19 16:32
- 提问者网友：轮囘Li巡影
- 2021-01-18 22:00
用vba分类统计.如何编写
最佳答案
- 五星知识达人网友：罪歌
- 2021-01-18 23:19
Sub t()
Dim Kdic As Object
Set Kdic = CreateObject("scripting.dictionary")
For ki = 2 To [h65536].End(xlUp).Row
If Not Kdic.exists(Cells(ki, 8).Value) Then
Kdic(Cells(ki, 8).Value) = Cells(ki, 7).Value
Else
Kdic(Cells(ki, 8).Value) = Kdic(Cells(ki, 8).Value) + Cells(ki, 7).Value
End If
Next
Sheets("sheet2").[a7].Resize(Kdic.Count, 1) = Application.Transpose(Kdic.keys)
Sheets("sheet2").[b7].Resize(Kdic.Count, 1) = Application.Transpose(Kdic.items)
End Sub
代码放在数据所在的工作表中， 把“sheet2”的名称改成你想要结果的表名
Dim Kdic As Object
Set Kdic = CreateObject("scripting.dictionary")
For ki = 2 To [h65536].End(xlUp).Row
If Not Kdic.exists(Cells(ki, 8).Value) Then
Kdic(Cells(ki, 8).Value) = Cells(ki, 7).Value
Else
Kdic(Cells(ki, 8).Value) = Kdic(Cells(ki, 8).Value) + Cells(ki, 7).Value
End If
Next
Sheets("sheet2").[a7].Resize(Kdic.Count, 1) = Application.Transpose(Kdic.keys)
Sheets("sheet2").[b7].Resize(Kdic.Count, 1) = Application.Transpose(Kdic.items)
End Sub
代码放在数据所在的工作表中， 把“sheet2”的名称改成你想要结果的表名
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯