尝试找到最后一个填充的行后，我的宏不会停止运行

Question

我想将一个单元格的值粘贴到表的第10列的每个单元格中。但是，我只希望它对填充的行这样做。添加这些代码行后，宏将无休止地运行。

Worksheets("Inspections").Activate     

With Worksheets("Inspections")
    rowq = .Range("A" & .Rows.Count).End(xlUp).row
    Range(.Cells(3, 10), .Cells(rowq, 10)).Value = Range("L1").Value
End With

Answer 1

我使用此代码解决了该问题。仍然不确定为什么原版不起作用。

.filter-result