将多个工作表中的同一行复制到excel中的一个工作表中

Question

我需要将多张表格中的同一行复制到一行。

示例：我有一个包含5张的excel文件。我必须按照纸张的顺序复制第6张纸中每张纸的第10行（或第15行或第21行）。

提前致谢。

Answer 1

以下是 6 表单和行< 7 的示例：

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

前5张中的第7行将被复制到6 ^th 表中。

Answer 2

此代码会将所有前5张的第7行行复制到第6张表。

Sub row_copy()

For i = 1 To Worksheets.Count - 1

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

Next i

End Sub