如何用VBA分类汇总数据区域不定的数据？

作者：绿色风分类：时间：2022-08-17 浏览：168

楼主
amulee

Q：如何用VBA分类汇总数据区域不定的数据？
A：如附件，数据区域在第四行以下，但是数据区域不定，且各项分布没有规律。唯一的规律就是各项目字段名的下一行即为数据。对这类数据的汇总可以采用FIND方法来遍历所有的同类项。代码如下：

Sub MySum()
Dim Rng As Range
Dim j%, TempSum, TempAdd
For j = 1 To Range("XFD2").End(xlToLeft).Column
TempSum = 0
With Range("A4:XFD1048576")
Set Rng = .Find(Cells(2, j), LookIn:=xlValues)
If Not Rng Is Nothing Then
TempAdd = Rng.Address
Do
TempSum = TempSum + Rng.Offset(1, 0)
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> TempAdd
End If
End With
Cells(3, j) = TempSum
Next j
End Sub

分类汇总VBA.rar

2楼
kevinchengcw

收下了，阿木继续！

免责声明

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

评论列表