如何把pdf转换的excell多个表格合并

没头脑的男大2025-09-27 19:47

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

之后运行就可以了

上一篇：html网站模板 html网页设计模板源码网站