请大神帮帮我，如何把一个工作表中的数据从横向复制到另一个工作表对应竖向的单元格？

心大，舞台大 · 发表于 2024-9-26 09:07

求助大神们：

我想用VBA实现把一个工作表中若干横向数据复制到另一个工作表对应的对应的竖向工作表中？我刚接这个工作，原来的人有这个宏但不给我，我水平太低自己写不出来，我知道对你们来说小菜一碟，急，急，急，请各位大神帮帮我可以吗？

z865593849 · 发表于 2024-9-26 09:27

心大，舞台大 · 发表于 2024-9-26 09:51

z865593849 发表于 2024-9-26 09:27

老师，为什么这句“arr = Workbooks("在校生导出").Sheets(1).Range("a1").CurrentRegion”提示“下标越界啊”，感谢

心大，舞台大 · 发表于 2024-9-26 10:03

感谢您，为什么这句arr = Workbooks("在校生导出").Sheets("在校学生列表").Range("a1").CurrentRegion出现运行错误9，下标越界？

z865593849 · 发表于 2024-9-26 10:15

心大，舞台大发表于 2024-9-26 10:03
感谢您，为什么这句arr = Workbooks("在校生导出").Sheets("在校学生列表").Range("a1").CurrentRegion出现 ...

文件没打开

ykcbf1100 · 发表于 2024-9-26 10:34

你这个是一个工作簿中的数据向另一个工作簿拆分数据，并不只是纯粹的数据复制那么简单。
问一下，你是要按打印表为模板拆分成多个工作簿吗？

心大，舞台大 · 发表于 2024-9-26 11:11

z865593849 发表于 2024-9-26 10:15
文件没打开

老师，我就是打开了测试的，还是不行，我真是笨死了。

ykcbf1100 · 发表于 2024-9-26 11:11

本帖最后由 ykcbf1100 于 2024-9-26 11:15 编辑

简单写一个，暂时只考虑20条记录以内的情况。拆分后的工作簿名：“学籍档案打印.xlsx”

附件供参考。。。

ykcbf1100 · 发表于 2024-9-26 11:14

心大，舞台大发表于 2024-9-26 11:11
老师，我就是打开了测试的，还是不行，我真是笨死了。

2楼的代码并不能正常使用，因为“打印”工作簿都没有打开，数据怎么写入？

ykcbf1100 · 发表于 2024-9-26 11:14

参与一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 请大神帮帮我，如何把一个工作表中的数据从横向复制到另一个工作表对应竖向的单元格？