如何使用Excel VBA将多个工作表同一位置内容汇总到一个工作表
如图，现在有这样一个工作簿，里面有一些工作表。
在每个工作表中，都有对应的内容，格式都是一致的。
现在要将这些详细工作表同一位置A2:B2的内容都放入Sheet1中，并且是按行填入。
如果工作表很多的话，手动输入就比较麻烦，下面就介绍一下使用VBA来处理这样的表格。
VBA代码如下：
Sub Collection()
Worksheets("Sheet1").Activate
Dim i As Integer, j As Integer
j = 2
For i = 2 To Worksheets.Count
Worksheets(i).Range("A2:B2").Copy
Worksheets("Sheet1").Range("A" & j & ":B" & j).Select
ActiveSheet.Paste
j = j + 1
Next i
Application.CutCopyMode = False
Range("A1").Select
End Sub
点击运行之后，对应的内容就会都出现在Sheet1中了。
这样就比较快速方便。当然了，在实际工作中，相关的数据或者信息会更加复杂，可以根据实际情况来进行调整。例如修改目标的单元格区域，在填入的单元格需要注意设置好新的范围，避免后面数据填入以后出现叠加覆盖情况。
网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。
赞同 0
评论 0 条
- 上周热门
- 服贸会｜范渊荣获年度创新领军人物！王欣分享安恒信息“AI+安全”探索 3517
- WPS City Talk · 校招西安站来了！ 3433
- 字节跳动“安全范儿”高校挑战赛来袭！三大赛道，赢 80 万专项基金！ 3358
- 阿B秋招线下宣讲行程来啦，速速报名！ 3244
- 2024海洋能源产业融合发展论坛暨博览会同期活动-海洋能源与数字化智能化论坛成功举办 3241
- 烽火通信2025届校园招聘宣讲行程发布！！ 3201
- 有在找工作的IT人吗？ 3183
- 麒麟天御安全域管平台升级！为企业管理保驾护航 3171
- 字节跳动校招 | 电商业务 2025 校园招聘进行中！五大职类热招，等你来投！ 3077
- 华为全联接大会2024丨软通动力分论坛精彩议程抢先看！ 3022
- 本周热议
- 我的信创开放社区兼职赚钱历程 40
- 今天你签到了吗？ 27
- 如何玩转信创开放社区—从小白进阶到专家 15
- 信创开放社区邀请他人注册的具体步骤如下 15
- 方德桌面操作系统 14
- 我有15积分有什么用? 13
- 用抖音玩法闯信创开放社区——用平台宣传企业产品服务 13
- 如何让你先人一步获得悬赏问题信息？（创作者必看） 12
- 2024中国信创产业发展大会暨中国信息科技创新与应用博览会 9
- 中央国家机关政府采购中心：应当将CPU、操作系统符合安全可靠测评要求纳入采购需求 8
热门标签更多
