【方法】把多个excel工作表合并到一个excel表中

at 2019.10.23 17:54  ca 分享  pv 323  by 木易  

使用方法: 

1、新建一个工作薄,将其命名为你合并后的名字。 

2、打开此工作薄。 

3、在其下任一个工作表标签上点击右键,选择“查看代码”。 

4、在打开的VBA编辑窗口中粘贴以下代码: 

Sub 工作薄间工作表合并()
Dim FileOpen 
Dim X As Integer 
Application.ScreenUpdating = False 
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") 
X = 1 
While X <= UBound(FileOpen) 
Workbooks.Open Filename:=FileOpen(X) 
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 
X = X + 1 
Wend 
ExitHandler: 
Application.ScreenUpdating = True 
Exit Sub 
errhadler: 
MsgBox Err.Description 
End Sub

5、关闭VBA编辑窗口。

6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。 

7、在打开的对话窗口中,选择你要合并的300个工作薄。

备注:注意修改工作表格式


原文:https://jingyan.baidu.com/article/066074d66d8f5cc3c31cb054.html

本文链接:https://1987yp.com/?id=1093 转载需授权!

分享到:
TAG: Excel