插行没有带出公式

hhxq001

在坛子里找了段插行自动带出公式的代码，不知为何我试用，带不出公式？


公式？.rar (48.24 KB, 下载次数: 14)

2023-6-13 18:29 上传

点击文件名下载附件

ykcbf1100

插行公式已经可以带出了。

Cells(i, 7).FillDown这样就行。

hhxq001

ykcbf1100 发表于 2023-6-13 19:42
插行公式已经可以带出了。

Cells(i, 7).FillDown这样就行。

把你修改的放入我原来的表里，执行后还是没有公式呢

ykcbf1100

hhxq001 发表于 2023-6-15 10:33
把你修改的放入我原来的表里，执行后还是没有公式呢

上传附件吧。

边缘码农

边缘码农

上图红框中一行也可以这样写：
Cells(i, 7).AutoFill Destination:=Range(Cells(i, 7), Cells(Range("A65535").End(xlUp).Row, 7))

边缘码农

或者，再改成这样：
Cells(i, 7).AutoFill Destination:=Range(Cells(i, 7), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7))

边缘码农

或者，再改成这样：
Cells(i, 7).AutoFill Destination:=Range(Cells(i, 7), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 7))

xing_chen

边缘码农 发表于 2023-6-15 12:29
或者，再改成这样：
Cells(i, 7).AutoFill Destination:=Range(Cells(i, 7), Cells(Cells(Rows.Count, 1). ...

谢谢老师！

边缘码农

xing_chen 发表于 2023-6-15 16:59
谢谢老师！

5楼的代码中，我注释掉了一行：Cells(i, 1).Resize(1, 1).EntireRow.Insert
这一行重复插入。