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

Question

我需要将多张纸上的同一行复制到一行中。

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

提前致谢。

Answer 1

此代码会将所有前 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

Answer 2

这是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^张纸中。