VBA学习笔记3：合并同一工作簿下的多个表格

1、建立一个新的汇总表；
2、将其他sheet数据复制到汇总表中。

效果如下：
需要将3个sheet的表的数据汇总起来

汇总后的数据：

代码如下：

Sub 合并多个工作表数据()Dim sht As WorksheetDim rows%, hzrows%  ’row存储被复制的sheet的行数，hzrow存储新建表的行数ThisWorkbook.Worksheets().Add(before:=ThisWorkbook.Worksheets("1月")).Name = "汇总" 'worksheets.add.name="" 在1月sheet前创建工作表并重命名为“汇总”[a1] = "月份"[b1] = "姓名"[c1] = "成绩"For Each sht In Worksheets '循环If sht.Name <> ActiveSheet.Name  Then ‘除“汇总”外所有的表都要复制过来rows = WorksheetFunction.CountA(sht.[a:a]) 'sheet中a列不为空的行数（注意a列不要有空值）hzrows = WorksheetFunction.CountA(ActiveSheet.[a:a]) '“汇总”中的行数（新建表“汇总”即activesheet，也可用worksheets("汇总")替代activesheet）sht.Range("a2:b" & rows).Copy ActiveSheet.Range("b" & hzrows + 1) ’将sht的a2及以后的数据复制，粘贴只“汇总”的b列的第一个空行Range(Cells(hzrows + 1, 1), Cells(hzrows + rows - 1, 1)) = sht.Name '将sht的表名作为“汇总”的a列值 （从第一份非空行开始，到两个表非空行数-1)End IfNext sht
End Sub

也可以手工新建“汇总”表后插入按钮，效果如下：

Private Sub CommandButton1_Click()ActiveSheet.Range("1:1045876").ClearContents '清空工作簿Dim sht As WorksheetDim rows%, hzrows%[a1] = "月份"[b1] = "姓名"[c1] = "成绩"For Each sht In WorksheetsIf sht.Name <> ActiveSheet.Name Thenrows = WorksheetFunction.CountA(sht.[a:a])hzrows = WorksheetFunction.CountA(ActiveSheet.[a:a])sht.Range("a2:b" & rows).Copy Range("b" & hzrows + 1)Range(Cells(hzrows + 1, 1), Cells(hzrows + rows - 1, 1)) = sht.NameEnd IfNext sht
End Sub

VBA学习笔记3：合并同一工作簿下的多个表格相关推荐

VBA学习笔记2：将工作簿的表格拆分为工作簿
VBA学习笔记2:将工作簿的表格拆分为工作簿 1.判断原有工作簿的sheet是否需要拆分: 2.如需拆分则创建新表: 3.将原sheet复制到新建的工作簿中. 效果如下: 代码执行前,有1个工作簿,需 ...
Excel VBA 合并当前工作簿下的所有工作表
命令从下面第一个Sub开始: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If ...
Excel 合并一个工作簿中的所有工作表
Excel 合并一个工作簿中的所有工作表最近在做一个统计表的时候发现了一个问题,我一个工作簿中有许多工作表,我要把它们汇总到一个工作表中进行统计.一个个复制非常麻烦,那么我们怎么来进行简化操作: 1 ...
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...
VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮:新建一个我的菜单按钮设置对应的宏过程名称为 [我的菜单宏] 点击按钮弹窗信息,信息可自定义设置详细代码如下: Sub 新建右键菜单()Dim 菜单 ...
VBA学习笔记8：单元格的合并与拆分
VBA学习笔记8:单元格的合并与拆分如下图,需要实现1图到2图(单元格合并),或2图到1图(单元格拆分). 1图: 2图: 合并单元格代码如下: Sub 合并单元格()Dim k%, rng As ...
Excel VBA 合并不同工作簿的工作表到一个工作簿的不同工作表
命令从下面第一个Sub开始: Sub 合并不同工作簿的工作表到一个工作簿的不同工作表() Excel.Application.ScreenUpdating = False Dim ARR() Dim ...
Excel VBA 学习笔记13：单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...

VBA学习笔记3：合并同一工作簿下的多个表格

VBA学习笔记3：合并同一工作簿下的多个表格

代码如下：

也可以手工新建“汇总”表后插入按钮，效果如下：

VBA学习笔记3：合并同一工作簿下的多个表格相关推荐

最新文章

热门文章