excel 怎么把几个工作簿合并到一起

生活百科 2024-03-08 14:30:01

excel这个事情很多人都会遇见，对于带来的一些疑问也不少，就有很多小伙伴问小编具体是怎么回事？小编为此特意准备了这篇文章，目的是解决小伙伴们的问题，具体文章如下。

excel 怎么把几个工作簿合并到一起

有一种情况是我们有很多excel，excel表中的公式基本相同，因此我们希望快速将这些excel合并在一起，这意味着将它们合并在一个excel页面中，这将方便我们的分析和统计，因此/[/k0/下面为大家介绍这种方法，希望对大家有所帮助。

工具/原材料

擅长

操作步骤:

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

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

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

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

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

复制代码代码如下:

subcombinesheetscells（）Dim wsNewWorksheet As Worksheet Dim cel As Range Dim data source，RowTitle，ColumnTitle，SourceDataRows，SourceDataColumns 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$，DisplayAlerts =假工作表（“合并汇总表”）。删除set wsnewworksheet = worksheets。在:= worksheets（worksheets . count）后添加（，）wsnewworksheet.name =“合并汇总表“my filename = application . getopenfilename（“Excel工作簿（*。xls *）、*。xls *“）如果my filename =“false“则msgbox“未选择文件！请重新选择一个合并文件！“，vbInformation，“取消”其他工作簿。打开文件名:= myFilename num =活动工作簿。床单。CountmyName =活动工作簿。NamesetDatasource = application。inputbox（Pro Mpt:=“请选择要合并的数据区域:“，Type:= 8）address all = data source。地址活动工作簿。active sheet . Range（address all）。Select源数据行=选择。Count source data columns = Selection。列数应用程序。ScreenUpdating =虚假申请。对于i = 1到Num ActiveWorkbook，EnableEvents = False。床单（一）。激活ActiveWorkbook。床单（一）。范围（AddressAll）。选择选择。复制活动工作表名称=活动工作簿。活动工作表。命名工作簿（thisworkbook。姓名)。激活活动工作簿。工作表（“合并汇总表”）。选择活动工作簿。工作表（“合并汇总表”）。range（“a“&；数据行）。value = active sheet name active workbook。工作表（“合并汇总表”）。范围（单元格（数据行，2），单元格（数据行，2））。选择选择。Paste special Paste:= xlpastecolumn widths，Operation:=xlNone，_ SkipBlanks:=False，Transpose:=False Selection。PasteSpecial Paste:=xlPasteAll，Operation:=xlNone，SkipBlanks:= _ False，Transpose:=False Selection。Paste special Paste:= xlPasteValues，Operation:=xlNone，SkipBlanks _ :=False，Transpose:= False DataRows = DataRows+source DataRows Workbooks（MyName）。激活下一个应用程序。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表中的方法。你明白吗？希望能帮到你。感谢您阅读这篇文章！