如何将多个不同的excel文件放在一个excel文件里
我有多张excel文件,每个文件里只有一张表(sheet)如合把这些文件合成一个文件,即把每个文件变成合成的文件中的表?除了复制贴切之类的我想知道如何大规模地进行此类的操...
我有多张excel文件,每个文件里只有一张表(sheet)
如合把这些文件合成一个文件,即把每个文件变成合成的文件中的表?
除了复制贴切之类的
我想知道如何大规模地进行此类的操作 展开
如合把这些文件合成一个文件,即把每个文件变成合成的文件中的表?
除了复制贴切之类的
我想知道如何大规模地进行此类的操作 展开
11个回答
2018-07-31 · 互联网+时代高效组织信息化平台
关注
展开全部
将要合并的文件copy到一个新文件夹(只有这些Excel,且若打开某一文件,数据就能看见——即不用点其他sheet),建一新Excel,也存到该文件夹。仅打开该新Excel,按Alt+F11,点菜单的插入,模块,粘贴如下代码:
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
在此界面之间按F5运行此宏,所有表格复制到一个Excel里了。
注意:本操作只合并EXCEL中打开时看到的SHEET。即想要合并哪个sheet,就要在哪个sheet打开时点保存。
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
在此界面之间按F5运行此宏,所有表格复制到一个Excel里了。
注意:本操作只合并EXCEL中打开时看到的SHEET。即想要合并哪个sheet,就要在哪个sheet打开时点保存。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你好,在Excel表格中的左下角有添加表格的标识,sheet1,sheet2和sheet3,在他们后面有个+标识,想多创建表格直接点击+即可,这样一个Excel表格中就有锁多个Excel表。
希望可以帮到你。
希望可以帮到你。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先打开第一个文件,按住键盘的“Ctrl”键再点击工作表的名称(如“sheet”)向右拖动复制另外一个内容一样但名称不同的工作表(名称可以修改),你有多少个文件就复制多少个表,然后依次打开你的第二个文件,第三个文件。。。,并全选这些内容复制-粘贴到刚刚在第一个文件复制出来的表里边,这样反复制作后就合成一个文件了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询