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.发现违规行为请私信站长LAzySheep或进TG群举报。
本文由 @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

9 条回复 A文章作者 M管理员
  1. 二萌萌

    谢谢分享~

  2. 叶德佬

    感谢分享

  3. snowman

    学到了

  4. 地铁工程

    下次试试

  5. tjb5566

    学习了!

  6. galigali

    补充:
    横向罗列可用。

  7. galigali

    经测试,不好使。只能复制第一个工作表的内容,然后就不干活了。
    注释用' ,不是#

    • LAzySheep

      我横竖都能用诶。😂

个人中心
今日签到
有新私信 私信列表
搜索