多表金额汇总.doc

文档介绍：多表金额汇总
《春春》
要求1、合计当中每个费用科目金额等于后面4个部门对应的费用科目金额合计2、存在困难是每个部门的费用科目是不是固定的，比如人力部交通费用是在第5行，但是拓展部的交通费用科目是在第2行3、有没有便捷的方式多表金额汇总
《春春》
要求1、合计当中每个费用科目金额等于后面4个部门对应的费用科目金额合计2、存在困难是每个部门的费用科目是不是固定的，比如人力部交通费用是在第5行，但是拓展部的交通费用科目是在第2行3、有没有便捷的方式直接取到各个表当中对应费用科目的金额合计思路汇总表装数组定位遍历工作表装入数组 循环并判断相同则累加读出
代码如下：Sub 汇总() arr = Sheets('合计').UsedRange For Each sh In Sheets If '合计' Then brr = For i = 2 To UBound(brr) For j = 2 To UBound(arr) If brr(i, 1) = arr(j, 1) Then For Z = 2 To UBound(arr, 2) arr(j, Z) = arr(j, Z) + brr(i, Z)