excel多张表格合并宏

发布网友发布时间：2022-04-22 23:34

共3个回答

热心网友时间：2023-04-28 07:05

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

热心网友时间：2023-04-28 07:05

只能给模板自己看，这个工作量大啊。

热心网友时间：2023-04-28 07:06

你百度搜一下EXCEL多表合并,有很多的

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

excel多张表格合并 宏

excel多张表格合并宏