财务报表合并

狂歌者 · 发表于 2012-8-6 14:59

根据红色的部门编号，对黄色部分的数据进行汇总
原始数据表中，可能部门编号会有乱序、或者有些表不包含某些部门，但横向的顺序是固定的
文件和工作表名请调用“辅助表”中的单元格（为便于修改）
汇总时具体到这张表（就是“单位经费支出明细表”，实际还有其他几张表，不过汇总方式不同，已经做好了，未一并上传）
希望在不手工打开源数据表的情况下汇总（实际需汇总的数据很多，都打开吃不消）
盼答为谢。

xyz.rar (59.5 KB, 下载次数: 318)

zhyzhsh · 发表于 2012-8-6 15:25

设置好公式，打开汇总表的时候选择更新就行了。

狂歌者 · 发表于 2012-8-6 15:59

额，公式太烦了吧{:soso_e110:}，盼高手帮忙解答

狂歌者 · 发表于 2012-8-6 20:04

请高手帮忙，谢了先

hai167 · 发表于 2012-8-6 21:09

狂歌者发表于 2012-8-6 20:04
请高手帮忙，谢了先

xyz.rar (67.24 KB, 下载次数: 360)

狂歌者 · 发表于 2012-8-7 08:48

hai167 发表于 2012-8-6 21:09

学习了，有两个问题
1，表中的“合计”和代码中的“total”是怎么对应上的？为什么代码中不是“合计”、“合计1”呢？
2，原表中的几个“合计”可以不改成合计1、合计2么？（最好是不改原表的格式与文字）

hai167 · 发表于 2012-8-7 09:18

狂歌者发表于 2012-8-7 08:48
学习了，有两个问题
1，表中的“合计”和代码中的“total”是怎么对应上的？为什么代码中不是“合计”、 ...

第1个问题，代码中的total不用理会它，我已经加了一个辅助表（隐藏了，叫数据处理表）来处理，用合计或合计1的时候SQL语句会出错，暂时不知道什么原因；

第2个问题，原表中的几个合计，你想改回来可以的，已经没有关系了，你想改成什么都可以。

狂歌者 · 发表于 2012-8-7 11:03

hai167 发表于 2012-8-7 09:18
第1个问题，代码中的total不用理会它，我已经加了一个辅助表（隐藏了，叫数据处理表）来处理，用合计或合 ...

哦，看到隐藏表了，原来是把数据都合并到那张表再进行汇总了
我实际操作的数据源文件还包括其他工作表，那我应该在哪里指定这个工作表呢？（就是要调用“辅助表”B22的工作表名）

hai167 · 发表于 2012-8-7 12:05

狂歌者发表于 2012-8-7 11:03
哦，看到隐藏表了，原来是把数据都合并到那张表再进行汇总了
我实际操作的数据源文件还包括其他工作表， ...

不明白什么意思，我看到你要汇总的那些表都是只一个表（单位经费支出明细表），如果你要按B22的表名进行汇总，那将这两句换掉就可以。
      LRow1 = wb.Worksheets(1).Range("a65536").End(xlUp).Row - 3
      arr = wb.Worksheets(1).Range("a8:q" & LRow1)

换成
      LRow1 = wb.Worksheets("" & Worksheets("辅助表").Range("b22") & "").Range("a65536").End(xlUp).Row - 3
      arr = wb.Worksheets("" & Worksheets("辅助表").Range("b22") & "").Range("a8:q" & LRow1)

狂歌者 · 发表于 2012-8-7 17:01

hai167 发表于 2012-8-7 12:05
不明白什么意思，我看到你要汇总的那些表都是只一个表（单位经费支出明细表），如果你要按B22的表名进行汇 ...

搞定，多谢

		自动登录	找回密码
密码			免费注册

[求助] 财务报表合并

评分