使用场景： 在很多情况下，公司中收集资料可能都不是云端收集，到最后可能给到自己是一个Excel文档，然后里面还一堆sheet，这个时候，使用这段代码就可以快速将工作表分别保存成不同的工作簿，方便接下来的其他处理。 使用方法也非常简单： 将这一段代码随便拷贝到一个sheet中，直接点击执行 ...

sh.Copy '这条语句会复制工作表并放在一个新建工作簿 file_name = ActiveWorkb ...

...

新建一个文件夹,新建4个工作薄,名字分别是:表1.xls,表2.xls,表3.xls,代码.xls.然后在这个文件夹下面再新建一个文件夹名字为:移动到的文件夹.打开代码.xls 粘贴以下代码到代码.xls 工作薄的VBA窗口.分别执行代码过程Sub 复制表1()FileCopy ...

使用vba，将一个工作簿中的多个工作表拆分为多个工作簿，拆分后的工作簿以工作表名称命名，存档在【当前工作簿目录】下的【拆分工作簿】目录下面。 增加逻辑： 1、如果有隐藏工作表时，弹出输入框，选择是否执行及显示当前隐藏的工作表。 补充知识点： ...

代码逻辑如下： 说明：这里是分别复制给子工作簿/工作表的值，而没有复制格式，如果需要特殊格式的，可以现在汇总表中进行格式设置，再执行合并动作。 运行宏代码，选择工作表： ...

...

来自《别怕excel vba其实很简单》 ...