求助，EXCEL里如何将多张工作表合成一张
答案:5 悬赏:10 手机版
解决时间 2021-02-25 20:09
- 提问者网友：太高姿态
- 2021-02-24 20:24
我这个有点麻烦，论文数据要用，找的数据多个来源，因此要整合，多张表格，每张表格的列项比如说公司代码不尽相同，我就是想把每张表里相同的公司代码连同代码的那一行数据都提取出来，搜了下还要用到宏什么的，表示迷惑，网上也没教程什么的，求助求助，帮忙给个思路或列个公式，
最佳答案
- 五星知识达人网友：不想翻身的咸鱼
- 2021-02-24 21:49
打开excel，按alt+f11，在sheet1（sheet）右边的框框里面copy下面这些代码，再点击开始运行，就是类似△的这个标志，就可以了，后面你照着弹出来框框操作就行了。
宏：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成！"
errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
宏：多个文件表合到一个文件表的多个SHEET中
Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
MsgBox "合并成功完成！"
errhandler:
'MsgBox Err.Description
'Resume errhandler
End Sub
全部回答
- 1楼网友：鸽屿
- 2021-02-25 00:56
多表汇总和多表合并 可以用VBA解决
- 2楼网友：风格不统一
- 2021-02-24 23:48
你好 你的问题必须上传你的数据文件 才能帮你实现
建议把你的文件打包发我邮箱（lbwdz_1984@126.com） 我帮你看下
- 3楼网友：拜訪者
- 2021-02-24 23:28
你好 你的问题必须上传你的数据文件 才能帮你实现
建议把你的文件打包发我邮箱（lbwdz_1984@126.com） 我帮你看下
仅代表个人观点，不喜勿喷，谢谢。
- 4楼网友：第幾種人
- 2021-02-24 21:59
你可以在你的表格里面建立空白档，先把要的那张合并过来，再改成相同格式
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯