excel 如何快速把多个工作表合并到一个excel 表
有这么一种情况，就是我们有很多张excel ，而且excel 表里面的公式基本一样，我们就想
快速的把这些excel 合并在一起，意思在合并在一个excel 页面，这样可以方便我们分析和统计，那么excel 如何快速把多个工作表合并到一个excel 表？下面为大家介绍这种方法，希望能帮助到大家。
工具/原料
Excel
操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总
表”。
3、按Alt+F11 进入VBA 代码编辑和调试界面。Array
4、根据下图提示，插入一个模块。
5、将下述代码粘贴到模块空
白处：
复制代码
代码如下:
Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Vari
ant
Dim TitleRow, TitleColumn As Range Dim Num As Integer
Dim DataRows As Long DataRows = 1
Dim TitleArr()
Dim Choice
datasource是什么意思
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, olumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts
Worksheets(" 合并汇总表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count)) wsNewWorksheet.Name = " 合并汇总表"
MyFileName = Application.GetOpenFilename("Excel
If MyFileName = "False" Then
MsgBox "没有选择文件！请重新选择一个被合并文
件！
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name AddressC
False
工作薄(*.xls*),*.xls*")
", vbInformation, "取消"
Set DataSource = Application.InputBox(prompt:=" 请选择要合并的数据区域：T ype:=8)
AddressAll = DataSource.Address

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。