excel学习库

读者的一个小需求，如何将多个工作簿下的多个工作表，移动到一个工作簿内？

如下图所示，文件夹内一共有多个工作簿，包括Excel文件和WPS文件。

每个工作簿中又含有多个工作表，所有的工作簿中，工作表可能有重名的。

考虑到工作表可能有重名的情况，移动之后的插页决定用工作簿+工作表的方式进行命名，汇总完成结果如下图所示：

首先需要将待移动的工作簿移动到同一个文件夹内，接着点击按钮，选择文件夹，即可完成表格的移动汇总。

汇总动图展示如下：

模板表已放入专栏库，需要的小伙伴自行下载。

下面为部分代码，供参考。

Sub deletesht()

Application.DisplayAlerts = False

ss = Worksheets(1).Name

Dim Sht As Worksheet

For Each Sht In Sheets

If Sht.Name <> ss Then

Sht.Delete

End If

Next

Application.DisplayAlerts = True

End Sub

Sub 多工作簿下的所有工作表移动到一个工作簿中来()

On Error Resume Next