求助大神 按查找条件批量插入表格求助 [

haichuan5121

附件

求助大神      数百个类似格式文件需要批量插入替换 查找C列在对应单元格内容为1009时插入条件区黄色部分内容；                               B列空白值位置填充1009行B单元格内容 原始数据 插入数据 结果数据附件

不知道为什么

可以自己录制宏 跟着做做

haichuan5121

不知道为什么 发表于 2023-5-9 13:56
可以自己录制宏 跟着做做

因为每个工作表行数和关键字的行位置不一定 所以宏不好用

ykcbf1100

附件供参考。。。

注意一点：插入操作只可执行一次。第2次执行，就可能重复插入了。
代码行数比较多，有字典，有插入行、有数据写入、有合并单元格。

haichuan5121

ykcbf1100 发表于 2023-5-9 16:14
附件供参考。。。

注意一点：插入操作只可执行一次。第2次执行，就可能重复插入了。

为啥我这儿执行 没有合并单元格 没有数据写入呢；实测只能插入一个EXCEL  批次插入就没有效果了

ykcbf1100

haichuan5121 发表于 2023-5-10 09:42
为啥我这儿执行 没有合并单元格 没有数据写入呢；实测只能插入一个EXCEL  批次插入就没有效果了

我这里正常的。
说明一下，我这里条件区A列按无数据论处的（你附件中A列无数据），如果A列有数据，代码要稍调一下。

haichuan5121

ykcbf1100 发表于 2023-5-10 12:06
我这里正常的。
说明一下，我这里条件区A列按无数据论处的（你附件中A列无数据），如果A列有数据，代码 ...

是 EXCEL版本问题还是系统问题呢？ 我电脑也换了，Excel也重装了还是不行呢？另外能带颜色一起插入吗

ykcbf1100

haichuan5121 发表于 2023-5-11 13:58
是 EXCEL版本问题还是系统问题呢？ 我电脑也换了，Excel也重装了还是不行呢？另外能带颜色一起插入吗

把你的附件重新上传吧，我怀疑你的附件数据有变化。
颜色不能带过来，我用的是数组。我感觉应该有更好的办法，但好象别人也没有写代码啊。

haichuan5121

ykcbf1100 发表于 2023-5-11 14:04
把你的附件重新上传吧，我怀疑你的附件数据有变化。
颜色不能带过来，我用的是数组。我感觉应该有更好的 ...

我直接在你的答复里面下载执行的；单位电脑有域加密上传不了文件

ykcbf1100

haichuan5121 发表于 2023-5-11 14:12
我直接在你的答复里面下载执行的；单位电脑有域加密上传不了文件

代码应该没有啥问题，你如果无法执行，那我也帮不了你了。
让别的老师来吧。