0
点赞
收藏
分享

微信扫一扫

Excel 合并多个工作表或多个工作簿

小龟老师 2023-04-20 阅读 78

Alt+F11两键,调出Visual Basic 界面,在左侧窗口中,右键选择“插入”—“模块”,将代码粘贴进去,点击运行按钮,完成数据表合并。

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
NextApplication.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "已完成"End Sub


举报

相关推荐

0 条评论