时间戳

首页 > 解决方案 > 尝试找到最后填充的行后，我的宏不会停止运行

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

问题描述

我想将一个单元格的值粘贴到表格第 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

标签： excelvba

解决方案

我使用此代码解决了这个问题。仍然不确定为什么原来的不起作用。

   With Worksheets("Inspections")
         rowq = Cells.Find(What:="*", _
                     After:=Range("A1"), _
                     LookAt:=xlPart, _
                     LookIn:=xlFormulas, _
                     SearchOrder:=xlByRows, _
                     SearchDirection:=xlPrevious, _
                     MatchCase:=False).row
         Range(.Cells(3, 10), .Cells(rowq, 10)).Value = Range("L1").Value
    End With

推荐阅读