多个工作表复制到一个汇总工作表上

很多童鞋有这么个想法

怎么快速把多个EXCEL工作表合并

下面给出一个VBA的处理方法

Sub 合并表格()

Dim sht As Worksheet

Dim mysht As Worksheet

Dim lastrow As Integer

Dim i As Integer

Set mysht = Sheets.Add '新增一个表存放数据

mysht.Name = '汇总'

For Each sht In Worksheets '循环遍历数据表

If sht.Name <> '汇总' Then '循环不是叫汇总的表

i = i 1

lastrow = mysht.UsedRange.Rows.Count

lastrow = IIf(i = 1, 1, lastrow 1) '第一次循环 i=1 第二次循环开始lastrow等于mysht的总行数 1

sht.UsedRange.Copy mysht.Range('a' & lastrow) '第一次循环从A1开始 假设lastrow=10 第二次从A10开始

End If

Next

End Sub

---

可以把写好的宏加入到工具栏

---

这样直接点击就可以运行了