Excel 从多张图纸转换数据
是否有方法将多个工作表中的单元格区域复制到另一个工作表中?例如: 表1Excel 从多张图纸转换数据,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
苹果
葡萄
桃子
樱桃 表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