копировать одну и ту же строку из нескольких листов в один лист в excel

Question

Мне нужно скопировать одну и ту же строку из нескольких листов в одну строку.

Пример: У меня есть файл Excel с 5 листами. Я должен скопировать 10-ю строку (или 15-я строка, или 21-я строка) каждого листа на 6-м листе, в порядке листов.

Заранее спасибо.

Answer 1

Этот код будет копировать 7- строки из всех первых 5 листов в листа.

Sub row_copy() 

For i = 1 To Worksheets.Count - 1 

Sheets(i).Rows(7).Copy Sheets(6).Cells(i, 1) 

Next i 

End Sub 

Answer 2

Вот образец для листов и строк # :

Sub copyrow() 
    Dim Nrow As Long, Nsheet As Long 
    Dim i As Long 

    Nrow = 7 
    Nsheet = 6 

    For i = 1 To Nsheet - 1 
     Sheets(i).Cells(Nrow, 1).EntireRow.Copy Sheets(Nsheet).Cells(i, 1) 
    Next i 
End Sub 

Строка # 7 из первых 5 листов будут скопированы в 6-м листа.