用VBA将汇总表转为个人表

hjd528

向各位大侠求助：如何用VBA将汇总表按模板形式转为个人表（一个PDF格式或一个工作表）
汇总表转为个人表.rar (21.71 KB, 下载次数: 18)

2023-8-2 09:34 上传

点击文件名下载附件

chxw68

只写了填写部分内容的代码，其他的楼主自己照着完善吧。

半百

请测试。。。

沈默00

半百 发表于 2023-8-2 10:29
请测试。。。

一气呵成，要好好学习下

hjd528

chxw68 发表于 2023-8-2 10:00
只写了填写部分内容的代码，其他的楼主自己照着完善吧。

谢谢褚老师！可是行高和分页我还不能解决。

hjd528

半百 发表于 2023-8-2 10:29
请测试。。。

谢谢！模板中的两表再增加一些行，然后批量插入分页符就更好了。

chxw68

修改好了。

半百

hjd528 发表于 2023-8-2 11:27
谢谢！模板中的两表再增加一些行，然后批量插入分页符就更好了。

两表再增加一些行是干嘛用的？如果像你原来那样在两表中间加一些间隔行，完全没必要。
插入分页符，加句代码就可以了With Sheets("个人表") ，不过加不加也无所谓，只要设置好模板的两表正好占满一页，后边复制的基本不会有错了。

hjd528

chxw68 发表于 2023-8-2 11:49
修改好了。

谢谢，已解决。

hjd528

半百 发表于 2023-8-2 12:39
两表再增加一些行是干嘛用的？如果像你原来那样在两表中间加一些间隔行，完全没必要。
插入分页符，加句 ...

谢谢，明白了。