文章导航河东软件园软件下载安卓资源Mac软件驱动资源

热门搜索：安装教程使用教程

资讯首页软件教程安卓教程苹果教程系统教程手机教程手游攻略

您的位置：首页 > 文章教程 > 软件教程 > 电脑软件教程 > 多个excel文件合并成一个excel表的方法

多个excel文件合并成一个excel表的方法

时间：2017-06-09 09:46作者：Blank来源：本站整理人气：88292我要评论(0)

　　Excel是我们最常用的数据处理软件，而在我们使用Excel时，常常会处理同一类的数据，例如，我们制作月度报表，那么在年末时我们共积累了1至12月的月度报表，这时我们的Excel的文档将多达12个，实在不利于我们的保存/分析/使用，那么我们如何将多个Excel文件合并成一个文档，并且在保留所有的Excel原数据基础上，做到所有的文档完全独立呢，其实我们在Excel中能够通过宏命令建立多个Sheet页来实现，还不知道如何操作用户赶紧来了解一下吧！

方步/骤法

　　1、首先，我们新建一个文件夹，将我们将所有需要合并的“Excel文件”放入其中，并根据自己的需要对其进行排序，然后再此文件夹中新建一个Excel文件（空白Excel文档），如下图所示。

　　2、接着，我们打开这个新建的Excel文档，进入界面后，我们通过快捷组合键“Alt + F11”来打开“宏”。

　　2、然后我们在菜单栏中选择“视图”，然后在下拉菜单中点击“代码窗口”。

　　3、然后在代码窗口中输入以下的命令代码：

　　Sub sheets2one()

　　'定义对话框变量

　　Dim cc As FileDialog

　　Set cc = Application.FileDialog(msoFileDialogFilePicker)

　　Dim newwork As Workbook

　　Set newwork = Workbooks.Add

　　With cc

　　If .Show = -1 Then

　　Dim vrtSelectedItem As Variant

　　Dim i As Integer

　　i = 1

　　For Each vrtSelectedItem In .SelectedItems

　　Dim tempwb As Workbook

　　Set tempwb = Workbooks.Open(vrtSelectedItem)

　　tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

　　newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

　　tempwb.Close SaveChanges:=False

　　i = i + 1

　　Next vrtSelectedItem

　　End If

　　End With

　　Set cc = Nothing

　　End Sub

　　4、然后我们点击操作菜单中的“运行”选项（具体如下图所示），即可运行以上的宏命令。

　　5、然后弹出浏览窗口，我们在文件夹中选择我们所需要合并的所有Excel文件，然后点击“确认”按钮。

　　6、等到宏命令合并结束后，，将自动生成一个工作簿，此时用户即可在下方的Sheet页中查看到相应的Excel文件，在需要切换文档时只需要直接选择即可，如下所示：

　　7、当用户需要保存时，只需要点击文件，然后选择“另存为”即可完成。

　　上述的方法就是多个Excel文件合并为同一文档，且保留所有原数据的方法，其实就是通过建立多个Sheet页来实现保存为同一文档，同时达到互不干扰。

相关阅读 PDF Candy Desktop裁剪PDF页面的方法迅捷视频剪辑器给视频添加动画片头的方法步骤迅捷音频编辑软件将MP3转换成AAC格式的操作方法antibrowserspy清理垃圾文件的方法步骤使用Best PDF Combine PDF合并PDF文件的方法步骤Apeaksoft Studio Video Editor剪切视频的操作方法爱拍原创电脑版将MP4转换成AVI的方法极光PDF阅读器将CAD文件转换成PDF的方法步骤使用Prism视频文件转换器将视频转换成gif的方法步骤神奇图像处理软件给图片添加花边的方法

文章评论

查看所有0条评论>>

发表评论

提交评论

热门文章 修复迅雷一直显示连接资源以及下载速度为0的方法处理lol登录时遇到了一个预期之外的错误的方法处理迅雷提示应版权方要求文件无法下载的方案修复win10“我们无法设置移动热点因为你的电脑未建立以太网”的

最新文章 PDF Candy Desktop裁剪PDF页面的方法迅捷视频剪辑器给视频添加动画片头的方法步骤 迅捷音频编辑软件将MP3转换成AAC格式的操作方法antibrowserspy清理垃圾文件的方法步骤使用Best PDF Combine PDF合并PDF文件的方法步骤Apeaksoft Studio Video Editor剪切视频的操作方法

人气排行 修复迅雷一直显示连接资源以及下载速度为0的方法处理lol登录时遇到了一个预期之外的错误的方法处理迅雷提示应版权方要求文件无法下载的方案修复win10“我们无法设置移动热点因为你的电脑未建立以太网”的solidworks2016安装教程 solidworks2016破解版图文教程解决cad文字不显示的三种方法教你查看发QQ匿名消息的好友绝地求生吃鸡添加好友的方法