如何根据源数据用VBA计算平均成本

作者：绿色风分类：经营管理时间：2022-08-18 浏览：203

楼主 herelazy	Q：如何用VBA根据源数据进行如下统计： 1.将所有相同（货品编号）的货品汇总起来，计算出这些货品的平均成本，放到（查询成本）工作表中。 2.将相同（货品编号）的货品（最小单位数量）（金额）的合计，放到（查询成本）工作表中。 A： Sub justtest() Dim d, arr, i&, arrt(), k& Set d = CreateObject("scripting.dictionary") With Sheet1 arr = .Range("a5:i" & .Cells(.Rows.Count, 1).End(3).Row).Value End With For i = 1 To UBound(arr, 1) If d.exists(arr(i, 1)) Then arrt(4, d(arr(i, 1))) = arrt(4, d(arr(i, 1))) + arr(i, 6) arrt(5, d(arr(i, 1))) = arrt(5, d(arr(i, 1))) + arr(i, 9) Else k = k + 1: ReDim Preserve arrt(1 To 5, 1 To k) d.Add arr(i, 1), k arrt(1, k) = arr(i, 1): arrt(2, k) = arr(i, 2) End If Next i With Sheet2 .Range("a5:e" & .Rows.Count).ClearContents .Range("c:c").NumberFormatLocal = "￥0.00" .Range("a5").Resize(k, 5).Value = Application.Transpose(arrt) .Range("e5").Resize(k, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete .Range("c5:c" & .Cells(.Rows.Count, 1).End(3).Row).Formula = "=rc[2]/rc[1]" .Activate End With Set d = Nothing End Sub 效果图：示例文件：求平均成本VBA.rar
2楼 judywa	谢谢分享
3楼 eliane_lei	进来学习，谢谢分享！
4楼 babyboy163	正好我是种田的，谢谢楼主~~~楼主好人啊~~~

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表