把汇总表的数据填入到班级分表中

熊文来

3190496160 发表于 2023-3-18 10:13
Sub 分班()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant

老师，生成文件的排版和我源文件的有一些区别。

看看能不能把代码修改下，让排版按照我原来排版设置进行生成独立的工作簿。谢谢！

熊文来

3190496160 发表于 2023-3-18 22:47
呵呵呵，你也是教师呀，学习应该是教师的强项吧，谁身边会有很多会代码的人，论坛就是最好的老师

老师，生成文件的排版和我源文件的有一些区别。

看看能不能把代码修改下，让排版按照我原来排版设置进行生成独立的工作簿。谢谢！

excel玉米

在3190496160老师的代码基础上修改了一下，因为原文件是xls文件，导出的文件是xlsx文件，所以格式对不上，我修改为导出也是xls文件，排版应该Ok。
至于打印页码，没有必要设置了，你自己在打印时选择打印第一页还是第二页即可。

ykcbf1100

熊文来 发表于 2023-3-19 15:48
老师，生成文件的排版和我源文件的有一些区别。

看看能不能把代码修改下，让排版按照我原来排版设置 ...

附件你试一下吧。

熊文来

ykcbf1100 发表于 2023-3-21 16:44
附件你试一下吧。

谢谢您出手。

ykcbf1100

熊文来 发表于 2023-3-21 16:52
谢谢您出手。

看你一直在求助中，所以，下载看看。

熊文来

ykcbf1100 发表于 2023-3-21 16:54
看你一直在求助中，所以，下载看看。

非常感谢您的帮助。

熊文来

excel玉米 发表于 2023-3-21 11:50
在3190496160老师的代码基础上修改了一下，因为原文件是xls文件，导出的文件是xlsx文件，所以格式对不上， ...

这个作品很完美。谢谢您！

h2016

3190496160 发表于 2023-3-18 10:14

大佬厉害，我就不回复了。

熊文来

3190496160 发表于 2023-3-18 10:13
Sub 分班()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant

大师，如果是按照班级生成工作表，放在这个工作簿后面，该怎么做了？我下午在网上找了很多代码，试着修改，都失败了，您能帮我再改一下代码吗？谢谢！