Excel纵向合并多个sheet

这里想要实现的是纵向合并，把多个sheet里同一字段的参数合并到一张表里。
达到如下复制的目的：

目前能实现的就是用VBA，别的透视表啥的暂时搞不定。

1、点击Alt+F11，弹出VBAProject-ThisWorkbook-插入-模块

2、把以下代码粘进去，F5运行

Sub 合并当前工作簿下的所有工作表()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "合并"
For Each shet In Sheets:
If shet.Name <> "合并" Then
i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
shet.UsedRange.Copy
st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub