将多个 sheet 中的同一行复制到 excel 中的一个 sheet

Question

我需要将多个 sheet 中的同一行复制到一行中。

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

提前致谢。

Answer 1

这是 6 sheet 和行的示例 # 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

前 5sheet 行的第 7 行将被复制到第 6^thsheet.

Answer 2

此代码将从所有 前 5 sheets 复制第 7th 行到 6th sheet.

Sub row_copy()

For i = 1 To Worksheets.Count - 1

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

Next i

End Sub