vba - 选择最后 1 行并自动填充到最后 +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 ，如果你喜欢的话。