Вставка макроса в следующую доступную строку - PullRequest
Новая
       28

Вставка макроса в следующую доступную строку

0 голосов
/ 18 декабря 2018

У меня есть макрос, копирующий данные из одной электронной таблицы, и я хочу вставить его в следующую доступную строку в главной электронной таблице.Тем не менее, это вставка в последний ряд, который я заполнил.В настоящее время в строке 620 я хочу вставить ее в строку 621, а затем в следующий раз запустить макрос, строку 622 и т. Д.

В 2019 году я начну со строки 3 в новой электронной таблице. 

Sub Paste()
'
' Paste Macro
'

'
    Range("B24:AQ24").Select
    Selection.copy
    Windows("Sales  - 2018.xlsx").Activate
    ActiveWindow.SmallScroll Down:=3
    Range("B620").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
    Windows( _
        "Invoice Company B Limited Partnership.xlsx" _
        ).Activate
End Sub

Не уверен, как определить следующую доступную строку в коде.

Спасибо за чтение.

1 Ответ

0 голосов
/ 18 декабря 2018

Всегда ли B24:AQ24 вы копируете?

Это скопирует диапазон и вставит его в следующую пустую строку (на основе данных в столбце B) в Sheet2 из Sales - 2018.xlsx.

Это одна строка кода с продолжением строки (_) в конце первой строки.

Public Sub Paste()

    ThisWorkbook.Worksheets("Sheet1").Range("B24:AQ24").Copy _
        Workbooks("Sales - 2018.xlsx").Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Offset(1)

End Sub

Чтобы начать в строке 3, просто добавьте заголовок в ячейку B2.

ThisWorkbook относится к книге, содержащей код.
Возможно, вы захотите изменить это значение на Workbooks("Invoice Company B Limited Partnership.xlsx") (которое не содержит никакого кода, так как оно xlsx, а не xlsm.)

...