Блог

Главная - Вопросы по программированию - VBA скопируйте диапазон последней строки и вставьте на другой лист

VBA скопируйте диапазон последней строки и вставьте на другой лист

#vba #spreadsheet #copy-paste

#vba #электронная таблица #копировать-вставить

Вопрос:

Я пытаюсь найти последнюю ячейку столбца, например, A, затем скопируйте весь диапазон строк, который соответствует этой ячейке, например, скопируйте A5, B5, C5 и т.д. и вставьте их на другой лист в определенном диапазоне строк, например, A10, B10, C10 и т.д. Любая помощь? большое вам спасибо!

 Sub Macro3() 
  Sheets("Stream").Range("D" amp; Rows.Count).End(xlUp).Copy
  Sheets("General").Range("F2").PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Ответ №1:

 Sub Macro3() 
        Dim LastRowStream As Long, LastRowGeneral As Long,
        LastRowStream = Sheets("Stream").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Rows(LastRowStream amp; ":" amp; LastRowStream).EntireRow.copy

        LastRowGeneral = Sheets("General").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Sheets("General").Range("A" amp; LastRowGeneral).PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Комментарии:

1. Спасибо за ваш ответ, хотя это не совсем то, что мне нужно. Мне нужно вставить определенную строку в общий лист, а не в последнюю пустую строку.

2. Также этот код на самом деле вообще не работает. Это вставка пустой строки в общий лист. Спасибо