如何根据数据表将不同分级下的金额汇总到一起？

作者：绿色风分类：财会金融时间：2022-08-18 浏览：146

楼主 Zaezhong	Q：需要将下面的数据区域表按照不同的分类级别汇总到一起？其中每个一级目录下方的分类数目是不同的。需要汇总后的效果和原始数据表，具体见下图，图片未设置格式对齐等。 A： Sub test() Dim arr(1 To 2, 1 To 6), brr(1 To 3, 1 To 6), crr(1 To 1, 1 To 6) Dim T, N&, i%, j%, k%, X$ T = Sheets(1).[A1].CurrentRegion 'A1当前区域赋值给数组 Range("J2:O10").ClearContents '清空原有数据结果 For N = 2 To UBound(T) - 1 If T(N, 1) Like "：" Then '该部分主要是为了第14行，第15行出现两次一级目录时候出现的错误处理 X = Trim(T(N, 1)) '将一级目录赋值给一个变量 Else: X = X '如果当前不是一级目录，那么将原来的一级目录赋值给变量，即不变 End If If X = "库存现金：" Then '如果一级目录是库存现金 If Trim(T(N + 1, 1)) Like "人民币" Then '下面几行判断货币的类别 k = 1 ElseIf Trim(T(N + 1, 1)) Like "欧元" Then k = 2 Else: GoTo 1 '都不满足的时候直接循环到下一行 End If For i = 1 To 6 arr(k, i) = arr(k, i) + Val(T(N + 1, i + 1)) '使用Val是因为数据区域存在文本 Next ElseIf X = "银行存款：" Then '如果一级目录是引号存款 Select Case Trim(Trim(T(N + 1, 1))) '继续判断货币的类别 Case "-人民币" j = 1 Case "-美元" j = 2 Case "-港币" j = 3 End Select For i = 1 To 6 brr(j, i) = brr(j, i) + Val(T(N + 1, i + 1)) Next ElseIf X = "其他货币资金：" Then For i = 1 To 6 crr(1, i) = crr(1, i) + Val(T(N + 1, i + 1)) Next End If 1: Next [J3].Resize(2, 6) = arr: [J6].Resize(3, 6) = brr: [J10].Resize(, 6) = crr '结果写到单元格 Columns("J:O").AutoFit '自动调整单元格列宽 End Sub 分级汇总.zip
2楼 gysegz	强帖我要顶**
3楼水星钓鱼	感谢分享
4楼 335081548	感谢分享
5楼 lrlxxqxa

免责声明

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

评论列表