如何把Excel多个sheet合并成一个。两步操作，轻松完成，超级实用

按Alt+F11两键，调出Visual Basic 界面，在左侧窗口中，选择”ThisWorkbook“，右键选择“插入”—“模块” 如图一

将代码粘贴进去，点击运行按钮，完成数据合并。完全不需要看懂代码，将代码复制粘贴即可

代码如下，直接复制，一定要复制完整哦

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

#excel技巧 #excel #excel教学 #excel办工小技巧 #excel零基础入门教程