【Office】【Excel】將多個工作表合為一個工作表

在工作表中按下alt+F11打開vba編輯窗口，在菜單欄中選擇【插入】=>【模板】，將下面的代碼粘貼過去，然后運行即可

點擊查看代碼

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