（通用）（变相拆分表格）批量删除若干工作薄中指定工作表的特定行

（通用）（变相拆分表格）批量删除若干工作薄中指定工作表的特定行.xlsm (33.61 KB, 下载次数: 136)

2022-4-28 19:46 上传

点击文件名下载附件

2020年10月29日更新：修复对有工作表保护的工作簿拆分后，重新保护后的设置与原始设置不同的问题。
2020年5月26日更新：增加对于有工作表和工作薄密码的文件进行拆除。
2021年12月17日更新：增加对合并单元格的支持。依据列可以有合并单元格。




假如我们有一个工作薄，其中有一个工作表名字叫“汇总表”，“汇总表”里面包含了多个省份的相关数据，在某一列中用各省省名做为标识，现需要将每个省份数据分开，也就是说在“汇总表”指定区域有多少个省份，就要多少个工作薄，并且每个工作薄里的“汇总表”里面只能有某一个省份的数据。
这种情况下我们就，将该工作薄先复制成若干个工作薄，然后再把工作薄名字分别改成每个省份的名字，然后用该程序进行删除每个省份工作薄的“汇总表”中依据列中与该工作薄名称不一致的行。相当于把原来的汇总表按省份拆分了，并且不会改变里面相关的数据引用及公式连接。



说明：
      1、第一步，请输入要删除特定行的工作表的名称。
      2、第二步，请输入要删除特定行的工作表中删除依据所在的列号。
      3、第三步，请输入要删除特定行的工作表中删除依据开始的行号。
      4、第四步，请输入要删除特定行的工作表中删除依据结束的行号。      
以上4步要填的内容，可以事先填在本表H2到H5的单元格中。
      特定行是指依据区域中与工作簿名称不相同的行。
     5、需要保留的行，每行之间用英文逗号“,”隔开，主要用于当拆分区域中如果有需要保留的行的情况，即:如果一个sheet中有多个表头，这些表头不参与拆分，需要在每个拆分后的表中都保留这些表头，就要把这些表头所在的行写在H6中，也可以执行过程中输入。需要保留的行必须是在依据开始行和结束行范围内。
     6、如果依据区域与工作薄名称没有相同的，那么可以根据H7中的是或否，选择是否删除该工作薄中的指定工作表。
     7、依据行有合并单元格，那么合并单元格中的内容要是与工作簿名称相同，那么其所在的合并单元格所有行都将被保留。