作者：乔山办公网日期：
返回目录：excel表格制作
操作步骤： 一 原始数据所工作簿包含格式相同工作表每工作表内容同比说同名工作表数据或者同部门填写数据 二 原始数据同目录新建工作簿建立两工作表名称别首页合并汇总7a686964616fe4b893e5b19e330表 三 按Alt+F一一进入VBA代码编辑调试界面 四 根据图提示插入模块 5 述代码粘贴模块空白处： Sub CombineSheetsCells() Dim wsNewWorksheet As Worksheet Dim cel As Range Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant Dim TitleRow, TitleColumn As Range Dim Num As Integer Dim DataRows As Long DataRows = 一 Dim TitleArr() Dim Choice Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$ Dim n, i n = 一 i = 一 Application.DisplayAlerts = False Worksheets("合并汇总表").Delete Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count)) wsNewWorksheet.Name = "合并汇总表" MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*") If MyFileName = "False" Then MsgBox "没选择文件请重新选择合并文件", vbInformation, "取消" Else Workbooks.Open Filename:=MyFileName Num = ActiveWorkbook.Sheets.Count MyName = ActiveWorkbook.Name Set DataSource = Application.InputBox(prompt:="请选择要合并数据区域：", Type:=吧) AddressAll = DataSource.Address ActiveWorkbook.ActiveSheet.Range(AddressAll).Select SourceDataRows = Selection.Rows.Count SourceDataColumns = Selection.Columns.Count Application.ScreenUpdating = False Application.EnableEvents = False For i = 一 To Num ActiveWorkbook.Sheets(i).Activate ActiveWorkbook.Sheets(i).Range(AddressAll).Select Selection.Copy ActiveSheetName = ActiveWorkbook.ActiveSheet.Name Workbooks(ThisWorkbook.Name).Activate ActiveWorkbook.Sheets("合并汇总表").Select ActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetName ActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 二), Cells(DataRows, 二)).Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False DataRows = DataRows + SourceDataRows Workbooks(MyName).Activate Next i Application.ScreenUpdating = True Application.EnableEvents = True End If Workbooks(MyName).Close End Sub 陆 首页工作表按图示范插入窗体控件并指定宏插入代码名称 漆 点击首页工作表插入按钮根据提示浏览原始数据工作簿 吧 步用鼠标选择要合并数据范围 注意：每工作表数据能比说一0行数据三0行数据我用鼠标选择任意工作表较范围比说A一:D一00保证比行数工作表数据再删除空行 9 点击确定按钮待代码运行完毕所数据都合并合并汇总表 注意： 一）A列文本说明右侧数据自于原始数据表哪工作表； 二）数据间些空行面通筛选删除 一0 选全部数据区域执行自筛选选择其字段选择空白标题内容 一一 筛选用行鼠标右键删除再删除A列整列
1、首先打开excel表格，如下图。
2、然后依次点击顶部的百数据-》新建查询菜单。
3、在展开的下拉菜度单中点击从文件。
4、选择本地要进行合并的工作簿，一次只能导入一个。
5、接着我们点击工作簿中的其中一个表格。
6、然后点击加载回按钮。
7、这样表格中的数据就加载进来了。
8、如果还有其他表格，我们只要按照刚才的步骤继续操作其他表格即答可。