怎么将数个单独的Excel合成到一个excel 中

文化常识 2023-09-04 17:39:01

朋友在生活的过程中总会遇到一些问题，比如怎么将数个单独的Excel合成到一个excel,那么今天小编就为大家分享关于的相关文章，希望在这篇文章中你能了解到相关内容。

有这样一种情况，我们有很多excel表，excel表中的公式基本相同，所以我们想把这些excel表快速合并到一起，也就是说合并到一个excel页面中，可以方便我们的分析和统计。那么excel如何快速将多个工作表合并成一个excel表呢？下面就为大家介绍一下这个方法，希望对大家有所帮助。

工具/原材料

擅长

操作步骤:

1.原始数据所在的工作簿包含多张格式相同的工作表，但每张工作表的内容不同，如不同名称的工作表数据或不同部门填写的数据。

2.在原始数据所在的目录下新建一个工作簿，并分别创建两个名为“主页”和“合并汇总表”的工作表。

3.按Alt+F11进入VBA代码编辑调试界面。

4.根据以下提示插入模块。

5.将以下代码粘贴到模块的空白处:

复制代码代码如下:

sub CombineSheetsCells()Dim wsnew Worksheet As Worksheet Dim cel As Range Dim data source，RowTitle，ColumnTitle，SourceDataRows，source data columns As Variant Dim TitleRow，title column As Range Dim Num As Integer Dim DataRows As Long DataRows = 1 Dim title arr()Dim Choice Dim MyName $，MyFileName$，ActiveSheetName$，AddressAll$，AddressRow$，AddressColumn$，FileDir$，DataSheet$，myDelimiter$ Dim n，I n = 1i = 1application。DisplayAlerts = false工作表(“合并汇总表”)。删除set wsnewworksheet = worksheets。Add(，After:= worksheets(worksheets . count))wsnew worksheet . name = "合并汇总表" my filename = application . get open filename(" Excel workbook(*。xls *)，*。xls * ")如果myfilename = "false "则msgbox "没有选择文件！请重新选择一个合并文件！"，vbInformation，“取消”其他工作簿。打开文件名:= myFilename num =活动工作簿。床单。CountmyName =活动工作簿。NamesetDatasource =应用程序。Inputbox (Pro Mpt:= "请选择要合并的数据区域:"，Type:=8) AddressAll = DataSource。地址ActiveWorkbook。ActiveSheet.Range(AddressAll)。选择源数据行=选择。rows . Count source data columns = Selection。列。计数应用程序。ScreenUpdating =虚假申请。对于i = 1到Num ActiveWorkbook，EnableEvents = False。床单(一)。激活ActiveWorkbook。床单(一)。范围(AddressAll)。选择选择。复制活动工作表名称=活动工作簿。活动工作表。命名工作簿(thisworkbook。姓名)。激活活动工作簿。表格(“合并汇总表”)。选择ActiveWorkbook。表格(“合并汇总表”)。范围(" a " &；Datarows)。value = activesheetname active workbook。表格(“合并汇总表”)。范围(单元格(datarows，2)，单元格(datarows，2))。选择选择。Paste special Paste:= xlpastecolumnwights，Operation:=xlNone，_ SkipBlanks:=False，Transpose:=False Selection。PasteSpecial粘贴:=xlPasteAll，操作:=xlNone，SkipBlanks:= _ False，转置:=False选择。Paste special Paste:= xlPasteValues，Operation:=xlNone，SkipBlanks _ :=False，Transpose:= False DataRows = DataRows+source DataRows Workbooks(my name)。激活下一个应用程序。ScreenUpdating =真实应用。enable events = True End If Workbooks(my name)。关闭末端接头

6.如下所示，在“主页”工作表中插入一个表单控件，并将宏指定为插入的代码名。

7.单击“主页”工作表中插入的按钮，根据提示浏览到原始数据工作簿。

8.接下来，用鼠标选择要合并的数据区域。

注意:每个工作表中的数据可能不一样，比如有10行数据，有30行数据。在这里，我们可以用鼠标选择任意一个范围较大的工作表，比如A1:D100，只要有超过最大行数的工作表数据，以后再删除空白行。

9.单击确定。代码运行后，所有数据都将合并到“合并汇总表”中。

注意:

1)A列中的文字表示右边的数据来自原始数据表的哪个工作表；

2)数据之间会有一些空行，会被过滤删除。

10.选择所有数据区域并执行自动筛选。然后选择其中一个字段，并选择“空白”和标题内容。

11.然后用鼠标右键删除过滤掉的无用行，再删除A列的整列，完成效果如下:

结束

以上就是excel如何快速将多个工作表合并成一个excel表格。你明白吗？希望能帮到你。感谢您阅读本文！