选择最后一行并自动填充最后+1行

Question

我想选择最后一行之前的行，自动填充到最后一行下面的行。由于某种原因，目标行不喜欢命名范围的格式。这是我的代码收到错误：

Sub Range_Find_Method()

Dim lRow As Long
lRow = Cells.Find(What:="*", _
                After:=Range("A1"), _
                LookAt:=xlPart, _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious, _
                MatchCase:=False).Row
Rows(lRow - 1).Select   
    Selection.AutoFill Destination:=Rows(lRow - 1 : lRow + 1), Type:=xlFillDefault


End Sub

Answer 1

这是正确的语法：

Selection.AutoFill Destination:=Rows(lRow - 1 & ":" & lRow + 1), Type:=xlFillDefault

下一步，如果您愿意，请尝试避免Select和Selection - How to avoid using Select in Excel VBA。