Excel使用宏VBA汇总罗列在同一工作簿中不同工作表同一区域的数据

一、按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

二、点击 插页 > 模块,然后将以下代码粘贴到 模块 窗口。

Sub CombineSheet1()

Dim i, k, j, n As Integer
n = 1
For i = 6 To ThisWorkbook.Sheets.Count
For k = 1 To 60
For j = 1 To 8
ThisWorkbook.Sheets(4).Cells(n, j).Value = ThisWorkbook.Sheets(i).Cells(k, j).Value
#纵向罗列 在工作表4纵向复制粘贴从I表开始的Cell(行,列)
Next j
n = n + 1

Next k
Next i

End Sub

#以下是横向罗列,举一反三
Sub CombineSheet2()

Dim i, k, j, n As Integer
n = 1
For i = 5 To ThisWorkbook.Sheets.Count
For k = 1 To 8
For j = 1 To 60
ThisWorkbook.Sheets(4).Cells(j, n).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next j
n = n + 1

Next k
Next i

End Sub

三、按住 ALT + F8,快捷唤出模块。

-> 加入科技玩家交流群组:点击加入 <-
注意:
1.文中二维码和链接可能带有邀请性质,请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头,拉app注册等信息,发现必小黑屋。
4.同一种信息仅发一次,多发会被删除。
5.文章中源码或APP等,无法保证其绝对安全,需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel使用宏VBA汇总罗列在同一工作簿中不同工作表同一区域的数据

给TA买糖
共{{data.count}}人
人已买糖
学习笔记折腾记精选文章

青龙面板升级到2.8版本使用说明指南及回退2.2版本方法 6.23更新2.2禁止重启更新及互助

2021-6-22 1:05:13

Office学习笔记

Excel使用宏VBA在新建的工作簿中汇总罗列(复制粘贴)同一文件夹下不同工作簿中某一工作表的同一区域数据。

2021-6-29 12:00:45

30 条回复 A文章作者 M管理员
贴心提醒
请认真对待作者付出,勿发表无意义言论,触发过滤规则的评论将无法提交,包含敏感词的评论会自动变成待审核状态哦。
  1. YANMING

    感谢分享

  2. HD0520

    高级👍

  3. 听书人

    感谢分享 感觉很厉害

  4. 墨雪

    学习学习

  5. donggua1118

    学到了有用的知识,感谢分享!!

  6. 这把看我表演

    谢谢分享,学习了

  7. 念丶地

    谢谢分享,学习了

  8. 萝卜头

    谢谢,分享学习了

  9. 借一盏月色

    多谢楼主的分享

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索