利用Excel VBA快速汇总会议回执实例教程
发布时间:2023-04-01 16:01:47
某单位组织一次大型会议,要求各参会单位填写好会议回执后传回,再进行汇总。回执是用Excel制作的,有一个统一的标题行。由于参会单位和参会人员众多,返回的Excel文件很多,手工逐一汇总比较麻烦。这时用VBA可快速解决问题,示例文件下载 示例文件
如图所示,会议回执在工作簿的第一个工作表中,参会人员信息从第4行开始填写,共5列,各个单位的参会人员可能不同。汇总工作簿与回执工作簿具有相同的行标题。
将所有收到的回执和汇总工作簿放到某个文件夹中,注意该文件夹内不能包含其他非回执Excel文件,打开汇总工作簿并选择汇总工作表,按Alt+F11,在VBA编辑器中单击菜单“插入→模块”,将下列代码粘贴到代码窗口内执行,即可将所有回执工作簿第一个工作表中的人员信息自动复制到汇总工作簿的第一个工作表。
Sub 回执汇总()
Dim ThePath As String, TheFile As String
Dim Wbk As Workbook
On Error Resume Next
Application.ScreenUpdating = False
Range("A4:F65536").ClearContents
ThePath = ThisWorkbook.Path & "\"
TheFile = Dir(ThePath & "*.xls")
Do While TheFile <> ""
If TheFile <> ThisWorkbook.Name Then
Set Wbk = GetObject(ThePath & TheFile)
With Wbk.Worksheets(1)
‘复制有内容的分表数据到汇总表
If .[a65536].End(xlUp).Row > 3 Then
.Range("A4:E" & .[a65536].End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).[a65536].End(xlUp).Offset(1)
End If
End With
Wbk.Close False
End If
‘当前文件夹内的下一个工作簿
TheFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
猜你喜欢
- 我们在使用word制作表格的时候,发现表格中字体数字上下不居中,这究竟是怎么回事呢?下面小编就和大家分享一下如何解决Word表格中字体数字上
- 相信大家都有碰到因为图片大小太大导致上传不了的情况吧。在上传一些证件照的时候,就经常会出现这种情况,这种时候如果会自己把图片的内存调小,就能
- 目前,不少将设备升级到 iOS 14.2 Beta 4 的用户反馈,iPhone 会反复弹出一个对话框,提示“现有新的 iOS 更新可用”,
- 很多小伙伴在日常生活中都会用到Excel表格,在Excel表格中,我们可以对数据进行很多专业化的处理,比如进行排序,进行筛选,制作成表格,使
- 在安装Office2016过程中,当安装进度还未结束,系统提示『错误代码:30088-1028(0)』报错,该如何解决呢?Office201
- 我们都知道身份证号码的前6位是代表省、市、区的代号比如(340505等),如果我们的工作人员是同一个地方的,我们就可以简化输入过程,在exc
- 相信很多用户在使用电脑时会经常遇到桌面弹出的广告,这些广告对我们而言是用不到的,且很影响电脑使用感和美观,那么Win10系统该如何永久关闭桌
- 行间距是只行与行之间的距离,段间距则是相邻段落之间的距离,用户可以根据需求来调整文本的行间距与段间距。1.设置行间距默认情况下,Word自动
- word中如果出现了部分错别字,一个一个的改很麻烦的,那么在word文档中如何将文字全部替换?下面小编就为大家详细介绍一下,一起来学习吧有时
- Excel怎么制作销售报表汇报话术?相信不少销售员在每天工作结束之后都需要向上级汇报当日的销售情况汇报,而这些汇报内容一般不会很长,但是一定
- 在我们日常数据的计算中Excel确实给我带来非常多的方便快捷,但有时制作些较复杂的表格就相形见拙了,就不如word那样应用自如了,例如:在一
- 在制作表格的过程中,我们可能会用Excel来对数据进行各种运算,如:求和、求差、求积等公式,来完成我们的运算。在前面几课中我们已经基本的讲解
- 如果你错过了双十一,不要错过双十二!是不是到处都能听得这样的口号?李同学今年刚毕业,前两天来到一个淘宝店铺做数据分析。老板让她根据前五年的交
- 分别用过win7和win10系统后,我们肯定会考虑两种操作系统中哪一种会消耗更多的内存资源。笔者认为,相对于win10,win7的内存消耗要
- 第一步、打开Excel2013,选定A2单元格,点击“数据验证”; 第二步、在“设置”下,允许选择“自定义”,并输
- Excel排序是对工作表中的数据进行重新组织的一种方式。Excel可以对整个工作表或选定的某个单元格区域中的数据按文本、数字以及日期和时间进
- 使用过WPS Office的朋友知道,它有一个反片打印功能,能够把文件以镜像的形式(也就是反字、反图)打印在制版转印纸上。那么作为办公软件的
- 在单元格中显示当前时间可以用下面的3种方法:1.用快捷键:选中单元格,按Ctrl+Shift+;,如果是Ctrl+;,则显示当前
- 销售部门需要在年底时汇总每个业务员的业绩,并根据其名次给予一定的奖励,此时可能需要按照业务员的业绩进行排名,得到销售业绩排行榜,。图1 对业
- Excel表格是一款很多小伙伴都在使用的非常专业的办公软件,在Excel表格中,我们可以进行很多专业化的数据处理。有时候,我们在处理或者是分