您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA快速汇总会议回执一例

时间:2013-12-13 整理:docExcel.net

某单位组织一次大型会议,要求各参会单位填写好会议回执后传回,再进行汇总。回执是用Excel制作的,有一个统一的标题行。由于参会单位和参会人员众多,返回的Excel文件很多,手工逐一汇总比较麻烦。这时用VBA可快速解决问题,示例文件下载页面:http://www.excel123.cn/Soft/vbaxg/201211/39.html

如图所示,会议回执在工作簿的第一个工作表中,参会人员信息从第4行开始填写,共5列,各个单位的参会人员可能不同。汇总工作簿与回执工作簿具有相同的行标题。

Excel制作的会议回执示例

将所有收到的回执和汇总工作簿放到某个文件夹中,注意该文件夹内不能包含其他非回执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里面如何设置阅读回执
回答:阅读回执是在邮件里面的吧,word没有这功能吧
专题陈诉:超等周风险事件汇总:外汇 问题:专题陈诉:超等周风险事件汇总:外汇
回答:前值∶维持要害利率於0.5%,引入前瞻指引美联储曾於之前亮相在思量缩减QE前但愿看到每月平均新增20万非农就业。参照迩来每周的就业数据以及消费尚有ISM就业分项的,7月份的非农或将再度挑战20万这一关隘,同时赋闲率有望...
工商局:锤子手机“全球第二好用”宣传违规 问题:工商局:锤子手机“全球第二好用”宣传违规
回答:...在其微博上发出的北京市工商行政管理局海淀分局的一纸回执显示,王海曾对锤子科技二次修改的“全球第二好用的智能手机”的宣传语进行了举报。而工商局也在 2 月 2 日回执发出之前确认了锤子科技虚假宣传的事实并...
广告词太美摊上事了:锤子小米都曾被指虚假宣 问题:广告词太美摊上事了:锤子小米都曾被指虚假宣
回答:...mdash;职业打假人王海在其微博上发出了北京工商局的一纸回执,该回执显示他曾对锤子科技“全球第二好用的智能手机”的宣传语进行了举报,而工商局也在 2 月 2 日回执发出之前确认了锤子科技虚假宣传的事实并责令整...
利用数据透视表对数据立体化阐明 问题:利用数据透视表对数据立体化阐明
回答:...在打开的对话框中选择数据,单击确定按钮,此时自动将汇总阐明功效自动显示在差异事情表中,这样用户就可以按照本身的需要查察和删除数据信息。 在Excel傍边要想快速阐明汇总大量数据,最简朴的莫过于利用数据透视表...
论文投稿留意事项 问题:论文投稿留意事项
回答:...向伦敦照旧纽约编辑部投稿,均可从伦敦编辑部(收稿)回执(acknowledgment of receipt)。对付不发收稿回执的期刊,作者可以在投稿时附一个署有本身通信地点的名信片,以便编辑收到稿件后通知你。假如投稿2周仍无任何有关稿...
相关推荐: