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,快捷唤出模块。

本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel使用宏VBA汇总罗列在同一工作簿中不同工作表同一区域的数据
学习笔记折腾记

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

2021-6-22 1:05:13

Office学习笔记

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

2021-6-29 12:00:45

3 条回复 A文章作者 M管理员
  1. galigali

    补充:
    横向罗列可用。

  2. galigali

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

    • LAzySheep

      我横竖都能用诶。😂

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