如何汇总数据放到指定位置

小女孩

求助汇总.rar (52.42 KB, 下载次数: 10)

2022-12-6 15:22 上传

点击文件名下载附件

汇总后的数据放到指定的单元格，哪位能帮一下，万分感谢！

ykcbf1100

口头上说是万分感谢，真写了代码，你估计连个回复都没有吧。

小女孩

ykcbf1100 发表于 2022-12-6 15:30
口头上说是万分感谢，真写了代码，你估计连个回复都没有吧。

哈哈，怠慢了，对不起老师啦，别介意，的确忙着工作没及时回复，再次感谢！

lcluck2002

ykcbf1100

每个人都应心怀感恩之心，别人给你写代码，你至少要有个回复，这是对帮助你的人付出的劳动的一种尊重。

言归正传，就这题而言，写写也简单，用字典就可以了。

gwjkkkkk

Sub TEST5()
    Dim arr, i&, dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    arr = Sheets(2).[A1].CurrentRegion
    For i = 2 To UBound(arr)
      dic(arr(i, 4)) = dic(arr(i, 4)) + arr(i, 7)
    Next i
    arr = [A1].CurrentRegion
    For i = 2 To UBound(arr)
       arr(i, 19) = dic(arr(i, 5))
    Next i
    [A1].CurrentRegion = arr
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

参与一下。。。