如何将多个Excel表的数据合并成一个Excel表里的多个工作表的形式

Question

如何将多个Excel表的数据合并成一个Excel表里的多个工作表的形式？ 换种说法就是多个单独的Excel表格，合到一个Excel表格里多个sheet页的形式？有木有大神知道呀？急求~

Answer 1

把鼠标移到sheet标签位置，右键--查看代码--把下面的代码复制进弹出窗口--点击运行--选择要合并的工作簿--打开。
Sub 合并()
Dim FilesToOpen As Variant, x As Integer, xname As String
On Error Resume Next
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files, *.xls*", _
MultiSelect:=True, Title:="选取要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有文件被选中！"
Exit Sub
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
xname = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
Sheets(Sheets.Count).Name = xname
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub追问

WPS的话怎么操作呢？

Answer 2

在sheet名称的位置点右键，选择移动或复制工作表