excel如何把多张表合并成一个表_怎么把多个sheet合并成一个表 求个代码也行

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False '第一行注释，关闭实时显示执行效果

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A1048576").End(xlUp).Row + 1 '第二行注释，当前工作表非空区域最后一行+1，适用于XLSX格式，如果操作为XLS格式文档，需要将A1048576修改为A65536

Sheets(j).UsedRange.Copy Cells(X, 1) '第三行注释，将sheet页活动区域复制到当前工作表第X行1列

End If

Next

Range("A1").Select '第四行注释，执行完sheet页复制后，光标落在A1单元格

Application.ScreenUpdating = True'第五行注释，关闭实时显示执行效果

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub