|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
大神我想把分类汇总的结果单独提取出来放到同张表格的L和M列
Sub aa()
Dim i, arr, d As Object
Set d = CreateObject("Scripting.Dictionary")
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) Like "*汇总*" Then
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
End If
Next i
Range("L2:M100").ClearContents
[L2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[M2].Resize(d.Count, 1) = Application.Transpose(d.items)
Range("L1") = "航班"
Range("M1") = "销售额"
End Sub
为什么我复制过来的销售额是0而不是数值呢?求解,该如何修改
|
|