VBA学习笔记3:合并同一工作簿下的多个表格
1、建立一个新的汇总表;
2、将其他sheet数据复制到汇总表中。
效果如下:
需要将3个sheet的表的数据汇总起来
汇总后的数据:
代码如下:
Sub 合并多个工作表数据()
Dim sht As Worksheet
Dim rows%, hzrows% ’row存储被复制的sheet的行数,hzrow存储新建表的行数
ThisWorkbook.Worksheets().Add(before:=ThisWorkbook.Worksheets("1月")).Name = "汇总" 'worksheets.add.name="" 在1月sheet前创建工作表并重命名为“汇总”
[a1] = "月份"
[b1]