转换来自多个工作表的数据答案

【问题标题】：Transform data from multiple sheets转换来自多个工作表的数据
【发布时间】：2013-02-26 08:24:51
【问题描述】：

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

Sheet1
苹果
葡萄
桃子
樱桃

Sheet2
橙色
梨
香蕉
蓝莓

Sheet3
谢卡尔
马赫什
饶
高瑟姆

我需要结果

Sheet4
樱桃
蓝莓
高瑟姆

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

【问题讨论】：

我不明白哪个栏目必须去哪里。能具体点吗？！而且：它必须是VBA吗？对我来说，这就像一个简单的 excel 公式...最后但并非最不重要：What have you tried?
第 146 行中的 A、B、C 列（我想要每张工作表第 146 行的数据，即新工作表或工作簿中的 36 张工作表）
总是第 146 行还是这取决于工作表？并且：工作表是否命名为“sheet1”、“sheet2”等？
在每个名为“sheet1”“sheet2”的工作表和工作表中总是第 146 行.....
任何机构都可以在这个问题上帮助我

标签： excel vba

【解决方案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 行，您也会得到结果：

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

【讨论】：

错字：Sert 而不是第 8 行的 Set