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

Question

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

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

提前致谢。

Answer 1

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

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^th 张表格中。