一行多维度数据源变成二维表 VBA 怎么做

1204989233

已知数据源为一行有5各维度（4维度+1数值），现在想得到汇总表中的数据格式 竖列为费用项目  横向为省份、工厂、产品等多个维度的组合的数据数值不想用透视表来做，直接用VBA的写 请 各位大神帮忙看看

有4地

还分两个文件，就不能放在一个文件里面？

1204989233

有4地 发表于 2018-3-28 14:18
还分两个文件，就不能放在一个文件里面？

有区别 正常需要取数据就是分两个文件  我怕写在一起会对VBA语句有影响 实际不能操作 能做吗？

看见星光

1204989233 发表于 2018-3-29 13:13
有区别 正常需要取数据就是分两个文件  我怕写在一起会对VBA语句有影响 实际不能操作 能做吗？

省份和工厂和产品都是设置好的，并不需要通过代码获得吗？

1204989233

看见星光 发表于 2018-3-29 14:04
省份和工厂和产品都是设置好的，并不需要通过代码获得吗？

对 汇总表的维度 除了省份 都是固定的位置不变的  最终要求是一个省份一张表 所以 省份这里有两种选择 一种是 在表内选择后 然后执行宏 生成这个省份的数据后另存单独工作簿， 或者直接能生成数据源中 所有省份的单个工作簿 两种都可以  感谢星光 包括帮我解决以前的问题 谢谢！补充一个问题 就是 费用项目我举例为3个  实际会有很多 这些项目会有汇总行穿插在项目中间，汇总表我重新改了一下 传了附件  

1204989233

看见星光 发表于 2018-3-29 14:04
省份和工厂和产品都是设置好的，并不需要通过代码获得吗？

除省份外  工厂 费用项目 产品 都是固定好位置的， 最终是想要每个省份的数据一个单独的工作簿，所以省份这里有两种选择：
1、在汇总表内下拉框选择省份或者输入，执行宏，得到对应省份数据后另存工作簿；
2、根据数据源表，直接自动生成所有省份汇总表格式的单独工作簿（省份对应的工厂、产品顺序可提前设定）
补充个问题，费用项目处可能中间会穿插费用项目的汇总行（有表内计算公式），所以费用项目不一定都挨在一起，这个说明一下，对代码编制不知道影响多大。   汇总表略微调整了下，已上传附件。感谢星光的回答，包括以前解决的问题！