您的位置: 首页 > 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周仍无任何有关稿...
相关知识:

下面内容对您也许有用

      话题:EXCEL用 VBA如何实现分别将两例名称相同的数据汇总后再按名称
      答:类似于分类汇总表是吧 结果表的第5列,是汇总的差是吧?固定是4列减2列吗?有负数 代码如下 Sub test()Dim arr,brr(),x&,y&,i&,j1&,j2&,k,k1 Dim d As Object Excel如何用VBA做统计汇总 Excel 名称 在VBA中的运用
      话题:现想用VBA代码汇总表1的数据到表2中,见附件,用sumproduct
      现想用VBA代码汇总1的数据到表2中,见附件,用sumproduct可以做到,但我想用VBA代码来做用循环语句可以做
      话题:在Excel如何用VBA做统计汇总
      问:各位好,最近一个计划表,但是表中统计项特别多,手工统计较为繁琐,想到用Excel
      答:Sub 查找()Dim arr,dic As Object,i%,RangA As Range Set RangA=Range("g4","i100")arr=RangA Set dic=CreateObject("Scripting.Dictionary")For i=1 To UBound 用VBA制做EXCEL登录系统 Excel如何用VBA做统计汇总
      话题:EXCEL如何用VBA数据字典:除去重复后汇总
      答:Sub LJLK()Set d=CreateObject("ing.dictionary")[E:F]=""For I=1 To[A65536].End(3).Row IF CELLS(I,1)""THEN aa=Cells(I,1)&"|"&Cells(I,3)d(aa)=" EXCEL VBA删除重复数据 求高手 excel 用VBA如何删除一列中的
      话题:如何用VBA 自动分类汇总并分页?知道
      答:用公式就好了 sheet2的公式为=sheet1!a1
      话题:如何将Excel汇总表直接打印出个人信息表?(请用vba回答,不用
      问:应该是宏代码 函数 vba结合的吧,在第一张表上加一个按钮然后指定宏来实现打印
      答:如还没解决,请试试以下途径,希望能帮你解决。请将下面的三个公式分别拷入单元格。CHAR(81)&CHAR(81)&CHAR(47813)&CHAR(41914)&CHAR(50)&CHAR(52)&CHAR(48)& 如何将Excel汇总表直接打印出 怎样能一次逐个打印全部“职工
      话题:如何使用VBA快速将excel选中的金额由元换算为万元
      问:工作中经常用到把excel中的金额由元换算为万元,现如今都是用选择性粘贴实现,
      答:你不会定义加载宏吗?随便录制一个宏,点击“保存在-个人宏工作薄”,录制空宏保存,让后点击“窗口-取消隐藏”,这时你可以看见隐藏的“PERSONAL.XLSB"加载宏 打开office2007 Excel 时“VBA EXCEL VBA字母和ASCII代码转换
      话题:如何用VBA快速修改文件名
      问:大师们:一个文件夹内有多个文件,文件名类型为EXCEL,但版本不一样,文件名全无
      答:给你定做一个吧。下面三公式分别拷入三个单元格。CHAR(81)&CHAR(81)&CHAR(47813)&CHAR(41914)&CHAR(50)&CHAR(52)&CHAR(48)&CHAR(53)&CHAR(56)&CHAR(50)&CHAR(56)
      话题:请教VBA高手如何将一个表中的数据汇总
      问:我的数据有2,3千列的数据,与日俱增会不断的增加,想用VBA把这些数据汇总起来,
      答:以下代码可实现删除A&B相同的行 Sub delectthesameab()On Error Resume Next Columns("C:C").Insert Shift:=xlToRight Range("C1")="test"ed=Range("a65536"). 请教VBA高手帮忙,汇总若干个 几张excel表格中的数据汇集到
      话题:文件夹下有100个excel文件,内容为数值,每个文件第一列求和,
      问:总表第一行显示第一个文件第一列的和,第二行显示第二个文件第一列的和,第三行
      答:把我上传的文件拷贝到你要汇总的数据文件夹中,点击按钮即可~提问者评价 真心感谢各位帮助,谢谢 用vba把50个相同格式的excel文件 如何利用VBA实现不同excel表(在
最新评论