很多童鞋有这么个想法
怎么快速把多个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
可以把写好的宏加入到工具栏
这样直接点击就可以运行了
联系客服