代码不知道哪里出问题了，请老师帮忙看看。

3190496160 · 发表于 2024-5-21 15:04

电子台账模板5.rar (53.33 KB, 下载次数: 11)

3190496160 · 发表于 2024-5-21 15:05

根据筛选到的数据行数自动插入行，仅供参考

半百 · 发表于 2024-5-21 15:37

dbg111222 发表于 2024-5-21 13:07
非常感谢，但是我的表头第4第5行数据怎么带入呢？

第4、5行每个项目只能填入一个记录，而根据K3的日期，可以有多条记录，如果多条记录对应的4、5行里的项目不同，怎么确定要带入哪条记录到4、5行？

dbg111222 · 发表于 2024-5-21 15:58

3190496160 发表于 2024-5-21 15:04

前面几列由合并单元格的地方还是合并单元格，最后3列应该是合并单元格，怎么能执行后不是合并单元格了？

3190496160 · 发表于 2024-5-21 16:05

dbg111222 发表于 2024-5-21 15:58
前面几列由合并单元格的地方还是合并单元格，最后3列应该是合并单元格，怎么能执行后不是合并单元格了？

这是你一楼附件中的表格，自己看看呗

dbg111222 · 发表于 2024-5-21 16:07

3190496160 发表于 2024-5-21 15:03
Sub 验收记录()
Dim ar As Variant
Dim br()

我把收入表第3-5行日期改了一下，再次运行提示br(n, 4) = Split(ar(i, 4), " ", 2)(1) ' 第一个空格后的内容下界越标

dbg111222 · 发表于 2024-5-21 16:14

3190496160 发表于 2024-5-21 16:05
这是你一楼附件中的表格，自己看看呗

不好意思，能帮忙再修改一下吗？

3190496160 · 发表于 2024-5-21 16:34

dbg111222 发表于 2024-5-21 16:07
我把收入表第3-5行日期改了一下，再次运行提示br(n, 4) = Split(ar(i, 4), " ", 2)(1) ' 第一个空格后的 ...

修改T列的日期，跟这句代码没有任何关系的，应该是你D列的数据某个单元格没有空格吧？

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

[求助] 代码不知道哪里出问题了，请老师帮忙看看。