Excel VB小小实践

将各个子公司的excel里的数据汇总到一个excel里，子公司的excel以子公司的名字命名，如取经.xlsx、西天.xlsx

image.png

基本思路

公司添加分为替换和添加两部分

默认汇总表里有10个公司的名字，都是在项目一个row中，所以先可以先通过替换的方式完成
，基本流程:

1. 运行脚本，出现弹窗
2. 输入原始数据，如子公司1，和替换数据取经
3. 遍历所有的sheet进行替换

如何默认的10个子公司占位替换完了，那么就在项目的一行添加公司名，然后在同列的项目行添加同一个公司名

使用教程

注意：使用宏修改的内容无法撤销，记得操作之前先备份！！！！

开启控制面板

image.png

修改原始内容

• 原始内容是原来每个工作表里的项目一栏中的公司名称，比如子公司1、子公司2
• 在公司名一栏里输入新内容之后，点击替换按钮，所有的子公司1就会变成下方公司名内的内容
  image.png

导入公司数据

导入公司数据功能暂时不是很稳定，很依赖被导入的数据的结构匹配，可能还有更简单的方法

在修改公司名之后，就可以往该列中导入其他excel中的数据，这里依赖几点

• 被导入的Excel的工作表名字相同，比如都有『货币基金』这个工作表
• 被导入的Excel中需要有和公司名匹配的列，比如汇总表里是『西天』，在选择的excel中也要有『西天』这列
• 导入的公司名不能重复，否则会覆盖！！！

操作步骤

1. 在工作表内填写要导入的工作表，比如默认的『货币基金』
2. 在弹窗的窗内选择要导入的excel，目前只有单选
3. 系统自动打开excel，并导入，然后自动关闭打开的excel

vba学习

参考资料:https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbooks-open-method-excel