求助VBA插入数据

我是小黑屋 · 发表于 2023-1-4 16:10

本帖最后由我是小黑屋于 2023-1-4 21:43 编辑

微信截图_20230104160401.png

如图所示，用VBA将隔行每行的标题调整并在行对应的单元格插入红色字体的内容(如第5行和第7行所示)。
因为数据有几百行，人工一个个调位置和插入数据比较费时间，希望老师看看用VBA实现批量一键操作

新建 Microsoft Excel 工作表.zip (15.41 KB, 下载次数: 13)

洋务德雷 · 发表于 2023-1-4 16:31

仔细查看动图说明。
录制的宏增加了循环，后面的循环次数可以根据实际需要修改。

我是小黑屋 · 发表于 2023-1-4 16:37

洋务德雷发表于 2023-1-4 16:31
仔细查看动图说明。
录制的宏增加了循环，后面的循环次数可以根据实际需要修改。

感谢回复。但是我每行对应的不同的人员的。这样只是单纯复制的一行替换，没达到目的呢

LIUZHU · 发表于 2023-1-4 17:04

请问，插入的内容，一定要是红色字体吗？还是黑色字体也可以

我是小黑屋 · 发表于 2023-1-4 17:10

LIUZHU 发表于 2023-1-4 17:04
请问，插入的内容，一定要是红色字体吗？还是黑色字体也可以

没要求的，黑色可以的。我标红色只是方便描述而已

洋务德雷 · 发表于 2023-1-4 17:16

我是小黑屋发表于 2023-1-4 16:37
感谢回复。但是我每行对应的不同的人员的。这样只是单纯复制的一行替换，没达到目的呢

如果还要填写不同的人员，你就不应该使用这种方法呀。应该使用word里面的邮件合并功能来制作呀。

LIUZHU · 发表于 2023-1-4 17:36

转换出来是这样的，对么？

LIUZHU · 发表于 2023-1-4 17:39

只是我是用WPS做的，编写的是WPSJS宏，只能用WPS运行

LIUZHU · 发表于 2023-1-4 17:41

这个用VBA来处理还真的麻烦，因为JS数组可以裁剪的特性，索性用JS了

LIUZHU · 发表于 2023-1-4 17:42

附件在此，请测试

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

[已解决] 求助VBA插入数据