2013excel,一个工作薄里有多个工作表，怎样将多个工作表合并到一个工作表中？

如何将一张工作表拆分成多个工作表？

Sub 合并所有工作表() '工作簿内合并所有工作表
Dim rowCount As Long '定义 汇总表行数 赋值为 rowCount 数据类型为 Long(长整型)

Dim i As Long '定义 循环标识 赋值为 i 数据类型为 Long(长整型)
On Error Resume Next
Set ws = Sheets("汇总")
If ws Is Nothing Then '指定的工作表不存在
Worksheets.Add After:=Sheets(Worksheets.Count): ActiveSheet.Name = "汇总"
End If
Sheets("汇总").Select
Cells.ClearContents
[a1] = "合并"
For i = 1 To Sheets.Count
If Sheets(i).Name <> "汇总" Then
Sheets(i).Select
Sheets(i).UsedRange.Copy '逐个循环复制表内已使用单元格区域

Sheets("汇总").Select
rowCount = Sheets("汇总").UsedRange.Rows.Count + 1
Sheets("汇总").Range("A" & rowCount).Select '执行粘贴
ActiveSheet.Paste
End If
Next
[a1].Select
Sheets("汇总").Move Before:=Sheets(1) '把汇总表移动到开头

End Sub
再删除自己不需要的信息就可以了

我知道的有三种方法，一种是vba代码，一种是使用power query，一种是使用在excel里sql语句。具体操作步骤要找一下资料，在电脑上试验一下才知道有没有弄错。

很多的话vba