Excel通用按列拆分成工作簿/工作表/另存为PDF/分组直接打印（保留原格式）

lizhipei78

      2024.1.1更新
       优化代码，增加拆分为工作表/另存为PDF/分组直接打印功能，待拆分工作簿是否打开不受影响。
       有的同学说要按列分组另存为PDF功能，拆分为工作表，有的同学说能不能直接按列分组直接打印，不想拆分，其实都很简单，就整合一下，平时应该能用得到，另外也对拆分成工作簿的代码优化了一下，更直观一点，特意更新，推荐大家下载使用。


      Excel按列拆分成工作簿的工具，论坛内有不少，但基本上没有做到保留原格式，如页面页边距、页眉页脚、打印相关设置、公式、批注等，拆分出来的基本上不能直接运用，如分发给别人，别人打印后不美观，且很多操作还比较复杂，标题行不能有合并单元格，不能有多行标题，这些拆分都是不人性化的，基于此我写了一个通用简单直观的代码，能解决以上问题，给不懂得编程的同志们使用，以后你只要想对Excel工作总表按组别拆分成多个工作簿，就不需要求别人了。
      应用场景：
       如下图所示，要对测试数据中工作总表按项目拆分成多个工作簿，拆分出来的工作簿要带表头，要保留所有格式。



我们只需要按下面图2所示，选择要拆分的Excel文件，填写好拆分的列及标题所在行，点击拆分就可以了，非常简单。


使用方法：
1、如上图1所示，需要按H列项目拆分成工作簿，标题行在第三行，那么B2单元格就填写H，C2单元格要填写3。
2、需要注意的是如果待拆分原Excel工作簿中有多个sheet工作表，那么需要拆分的那个sheet工作表要在第一个，即调整到最前面来。
     大家可以打开待拆分的工作簿，对着慢慢填写好，且看要拆分的工作表是否在最前面，打不打开待拆分的工作簿都不受影响的，主要是填写信息要对。（打开待拆分的工作簿速度更快）
3、拆分成的工作簿在本Excel下的生成文件夹中，程序会自动打开生成文件夹，以防有的同志生成后总找不到文件在哪里。
   
      如果是大数据，且没有公式批注的话，用字典嵌套方式拆分可能效率高一点。
      大家有更高效的按列拆分成工作簿的代码，麻烦指导一下，谢谢。

通用按列拆分成工作簿、另存为PDF、不同项分别打印.rar (111.44 KB, 下载次数: 693)

2024-1-1 22:15 上传

点击文件名下载附件

lizhipei78

弄了一个逆向操作的，批量合并相同工作簿中的第一个工作表至一个工作簿中。

相同格式第一个工作表批量合并.rar (26.15 KB, 下载次数: 442)

2024-1-20 10:40 上传

点击文件名下载附件

lizhipei78

继续努力优化中

lizhipei78

一楼已经更新

feilanga

挺好的，非常实用，值得学习。

ykcbf1100

楼主真勤奋啊，有自己的东西，点赞了！
新年快乐！

ykcbf1100

拆分为工作簿时，这一段代码这样改一下是不是感觉更简洁一点呢？

lizhipei78

ykcbf1100 发表于 2024-1-1 08:18
拆分为工作簿时，这一段代码这样改一下是不是感觉更简洁一点呢？

不知道呢，好像不可以这样子写的吧

ykcbf1100

lizhipei78 发表于 2024-1-1 09:38
不知道呢，好像不可以这样子写的吧

很明显可以这样写，我已经测试通过了，速度应该比你的代码快一点点。

lizhipei78

ykcbf1100 发表于 2024-1-1 10:47
很明显可以这样写，我已经测试通过了，速度应该比你的代码快一点点。

为什么我的不可以，我用的是WPS，微软office还没有测试，你可以把你的文件上传给我测试一下吗？现在我加入了先判断工作簿是否打开代码，这样子无论是否打开需要拆分的工作簿都不受影响，这样子基本上就比较完善了。

ykcbf1100

lizhipei78 发表于 2024-1-1 11:36
为什么我的不可以，我用的是WPS，微软office还没有测试，你可以把你的文件上传给我测试一下吗？现在我加 ...

就VBA而言，WPS和office还是有些区别的。
这个代码在我office365系统中运行是完全没有问题的。