Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 从多张图纸转换数据_Excel_Vba - Fatal编程技术网

Excel 从多张图纸转换数据

Excel 从多张图纸转换数据,excel,vba,Excel,Vba,是否有方法将多个工作表中的单元格区域复制到另一个工作表中?例如: 表1 苹果 葡萄 桃子 樱桃 表2 橙色 梨 香蕉 蓝莓 第3张 谢卡尔 马赫什 Rao 高瑟姆 我需要结果 活页4 樱桃 蓝莓 高瑟姆 假设我在表1、2和3的A、B、C列中有数据,我需要在表4的A、B、C列中显示组合结果。基本上,我需要在第4页的第1、2和3页中的最后一行项目显示为三列。请尝试以下代码: Sub Consolidate() Dim rngTarget As Range Set rngTarget

是否有方法将多个工作表中的单元格区域复制到另一个工作表中?例如:

表1
苹果
葡萄
桃子
樱桃

表2
橙色

香蕉
蓝莓

第3张
谢卡尔
马赫什
Rao
高瑟姆

我需要结果

活页4
樱桃
蓝莓
高瑟姆

假设我在表1、2和3的A、B、C列中有数据,我需要在表4的A、B、C列中显示组合结果。基本上,我需要在第4页的第1、2和3页中的最后一行项目显示为三列。

请尝试以下代码:

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行,您还将得到以下结果:

=INDIRECT(ADDRESS(ROW(),COLUMN(),,,"Sheet"&ROW())) =间接(地址(行()、列()、“工作表”和行())
我不明白什么栏目要去哪里。你能具体说明一下吗?!和:它必须是VBA吗?在我看来,这是一个简单的excel公式。。。最后但并非最不重要的一点:第146行A、B、C列(我希望每张工作表第146行的数据,即36张工作表放入新的工作表或工作簿)是否始终是第146行,还是这取决于工作表?和:工作表是否命名为“sheet1”、“sheet2”等?在每张工作表和工作表中,第146行总是命名为“sheet1”、“sheet2”……有人能帮我解决这个问题吗?PO:
Sert
而不是第8行的
Set