Selection.Filldown

Question

Я пытаюсь заполнить данные от последней строки столбца B до последней строки столбца J. Я связал приведенный ниже код, но он не работает.

Sub Macro3()
    Dim lrow As Long

    LW = Worksheets("master log-1").Cells(Rows.Count, 10).End(xlUp).Row
    NW = Worksheets("master log-1").Cells(Rows.Count, 2).End(xlUp).Row

    MsgBox "Last Row: " & LW
    MsgBox "Last Row: " & NW

    Worksheets("master log-1").Range("B" & NW, "I" & NW).AutoFill Destination:=Range("B:I" & lrow), Type:=xlFillCopy

End Sub

Answer 1

Я думаю, это то, что вы пытались сделать. Пожалуйста, попробуйте.

Sub AppendRows()

    Const NumRows As Long = 3           ' enter how many rows to append

    Dim Ws As Worksheet                 ' always declare the sheet you are working on
    Dim Rng As Range

    Set Ws = Worksheets("master log-1")
    ' make sure the row is the same for both ends of the range
    Set Rng = Ws.Cells(Rows.Count, 2).End(xlUp).Resize(1, 8)
    Rng.AutoFill Destination:=Rng.Resize(NumRows + 1, Rng.Columns.Count)
End Sub

Ваш код требует предварительно определенной последней строки. Я думал, что это производная, и вы действительно хотите добавить определенное количество строк. Если я ошибаюсь, требуемое изменение кода будет незначительным.