从多个工作表中复制相同单元格地址的相同非连续数据并粘贴到一个主工作表中答案

【问题标题】：Copy same non contiguous data at same cell address from multiple worksheets and paste in one master worksheet从多个工作表中复制相同单元格地址的相同非连续数据并粘贴到一个主工作表中
【发布时间】：2019-05-31 22:24:57
【问题描述】：

如何从不同的工作表（工作表 1 到工作表 4）复制不连续的单元格（A2、B4、D5、E1、F3）并逐行粘贴到一个主工作表（“工作表 5”）中？

输出应以表格形式显示：

cell A2 cell B4 cell D5 cell E1 cell F3 sheet 1
cell A2 cell B4 cell D5 cell E1 cell F3 sheet 2
cell A2 cell B4 cell D5 cell E1 cell F3 sheet 3
cell A2 cell B4 cell D5 cell E1 cell F3 sheet 4

Dim cel As Range, pasteRange As Range

Dim sht As Worksheet

Set pasteRange = ActiveWorkbook.Sheets("Sheet5").Range("A2")

   For Each sht In Sheets
      If sht.name <> "Sheet5" Then

        For Each cel In sht.Range("A2, B4, D5, E1, F3")

            pasteRange.Value = cel.Value

            Set pasteRange = pasteRange.Offset(0, 1)

        Next

    End If

Next

【问题讨论】：

标签： excel vba

【解决方案1】：

看看这是否有帮助：

Dim cel As Range, pasteRange As Range
Dim X As Long, Z As Long
Dim wb As Workbook: Set wb = ActiveWorkbook

Set pasteRange = wb.Sheets("Sheet5").Range("A2")

For X = 1 To 4
    With wb.Sheets("Sheet" & X)
        For Each cel In .Range("A2, B4, D5, E1, F3")
            pasteRange.Offset(X - 1, Y).Value = cel.Value
            Y = Y + 1
        Next cel
    End With
    Y = 0
Next X

【讨论】：