关键词不能为空

当前您在: 主页 > 高中公式大全 >

反应熵公式excel如何快速把多个工作表合并到一个excel表

作者:高考题库网
来源:https://www.bjmy2z.cn/gaokao
2020-09-23 15:44
tags:excel合并公式

能干-四川理工大学分数线

2020年9月23日发(作者:韦家能)

excel如何快速把多个工作表合并到一个excel表

有这么一种 情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想
快速的把这些e xcel合并在一起,意思在合并在一个excel页面,这样可以方便我们分析和
统计,那么exce l如何快速把多个工作表合并到一个excel表?下面为大家介绍这种方法,
希望能帮助到大家。
工具原料

Excel

操作步骤:

1、 原始数据所在工作簿包含多个格式相同的工作表,只不过每个工作表内容不同,比如说
不同人名的工作表 数据或者不同部门填写的数据。


2、在原始数据同目录下新建一个工作簿,建立两 个工作表,名称分别为“首页”和“合并汇总
表”。

1 12



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


4、根据下图提示,插入一个模块。

2 12



5、将下述代码粘贴到模块空白处:


复制代码
代码如下:

Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Vari
3 12

ant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$$, MyFileName$$, ActiveSheetName$$, AddressAll$$, AddressRow$$, AddressC
olumn$$, FileDir$$, DataSheet$$, myDelimiter$$
Dim n, i
n = 1
i = 1
yAlerts = False
Worksheets(合并汇总表
Set wsNewWorksheet = (, after:=Worksheets())
= 合并汇总表
MyFileName = nFilename(工作薄 (*.xls*),*.xls*
If MyFileName = Then
MsgBox 没有选择文件!请重新选择一个被合并文件!vbInformation, 取消
Else
Filename:=MyFileName
Num =
MyName =
Set DataSource = ox(prompt:=请选择要合并的数据区域:Type:=8)
AddressAll = s
4 12

(AddressAll).Select
SourceDataRows =
SourceDataColumns =
Updating = False
Events = False
For i = 1 To Num
(i).Activate
(i).Range(AddressAll).Select

ActiveSheetName =
Workbooks().Activate
(合并汇总表
(合并汇总表& DataRows).Value = ActiveSheetNa
me
(合并汇总表2), Cells(DataRows, 2)).S
elect
pecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
pecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
pecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
DataRows = DataRows + SourceDataRows
Workbooks(MyName).Activate
Next i
5 12

Updating = True
Events = True
End If
Workbooks(MyName).Close
End Sub

6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。


6 12


7、点击“首页”工作表中插入的按钮,根据提示,浏览到原始数据工作簿。


8、下一步,用鼠标选择要合并的数据范围。

注意:每个工作表数据可能不一样,比 如说有的是10行数据,有的是30行数据。在这里
我们可以用鼠标选择任意工作表的一个较大范围,比 如说A1:D100,保证比最多行数的工
作表数据还多就可以,一会再删除空行。

7 12



9、点击确定按钮,待代码运行完毕后,所有的数据就都合并到了“合并汇总表”中。

注意:

1)A列的文本说明右侧的数据来自于原始数据表的哪个工作表;

2)数据之间会有一些空行,下面通过筛选删除。

8 12


10、选中全部数据区域,执行自动筛选。然后选择其中一个字段,选择“空白”和标题内容。

9 12


11、然后将筛选出来的无用行鼠标右键删除,再删除A列整列即可,完成效果如下图:

10 12


11 12


END





(范文素材和资料部分来自网络,供参考。可复制、编制,期待你的好评与关注)

12 12

中国特色社会主义思想-产生感应电动势的条件


聊天话题100句幽默-上饶学校


忌讳-室内设计课程


建筑系大学排名中国-昔我往矣杨柳依依的意思


没什么学历能考什么-自考大专费用


土地资源管理专业-北宋发明的活字印刷术比欧洲早400年


prefer的过去式和过去分词-怕是


什么是高职-竞争力排名



本文更新与2020-09-23 15:44,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/408590.html

excel如何快速把多个工作表合并到一个excel表的相关文章