求一个Excel工具

放肆的丶骄傲

假如我有很多个Excel文件，每个文件里都有一个工作表，我想要一个可以快速把多个文件里的工作表整合到一个文件里去，例如N个文件一共有N个工作表，整合以后一个文件里有N个工作表，最好是能保留每个工作表的名称，好用的话可以追加  谢谢！

rainisa

这个简单啊，如果你是office2013以上版本，可以直接使用power query功能即可，以下的需要去微软官方下载power query.
可以参考：https://study.163.com/topics/coursefinder112_m/

小小涩郎

https://www.lanzouj.com/i81v1gh
试一下

pojie202

https://www.sohu.com/a/247228280_417040

ithinkican

用一个VBA就可以实现的。
使用方法：
1、新建一个工作薄，将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码：


作者：知乎用户
链接：https://www.zhihu.com/question/20366713/answer/14911814
来源：知乎
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。


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

我试过了，可以成功的。

放肆的丶骄傲

ithinkican 发表于 2019-12-16 13:58
用一个VBA就可以实现的。
使用方法：
1、新建一个工作薄，将其命名为你合并后的名字。

不明觉厉，可是我需要合并的文件有点多，几百上千个呢！

zzmxy

论坛里搜Kutools，有这个合并的功能！

ithinkican

放肆的丶骄傲 发表于 2019-12-16 14:00
不明觉厉，可是我需要合并的文件有点多，几百上千个呢！

可以的。用ALT+F11，插入模块，把宏代码拷贝进去，保存。然后ALT+F8，运行宏。搞定。

ithinkican

放肆的丶骄傲 发表于 2019-12-16 14:00
不明觉厉，可是我需要合并的文件有点多，几百上千个呢！

宏代码：
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

heelihua

1.合并工作表:EXCEL或WPS内BVA程序
下载:https://www.lanzouj.com/i81w9lg 密码:99bv
2.汇总一文件夹里所有表格
下载:https://www.lanzouj.com/i81wgyb 密码:8390
第二个用要改一下VBA代码才可以,找到里面的文档名即可.
建议使用第1个工具.
以附图为第1个.