excel - 转换来自多个工作表的数据

Question

有没有办法将多个工作表中的单元格范围复制到另一个工作表中？例如：

Sheet1
苹果
葡萄
桃
樱桃

Sheet2
橙
梨
香蕉
蓝莓

Sheet3
Shekar
Mahesh
Rao
Gautham

我需要结果

Sheet4
樱桃
蓝莓
Gautham

假设我在工作表 1,2 和 3 的 A、B、C 列中有数据，并且我需要在 Sheet4 的 A、B、C 列中显示组合结果。基本上，我需要在 Sheet4 中以三列显示 Sheet 1,2 & 3 中的最后一行项目。

Answer 1

试试这个代码：

Sub Consolidate()
    Dim rngTarget As Range

    Set rngTarget = Sheets("YourTargetSheet").Range("A1:C1")

    For i = 1 To 36
        rngTarget.Value = Sheets("Sheet" & i).Range("A146:C146").Value
        Set rngTarget = rngTarget.Offset(1)
    Next

End Sub

或者，如果您在 A1 中使用此公式并将其复制 3 列和 36 行，您还将得到结果：

=间接（地址（行（），列（），，，“表”&行（）））