精华内容
下载资源
问答
  • 数据——合并表格——多个工作表合并为一个工作表

    数据——合并表格——多个工作表合并为一个工作表

    展开全文
  • [Office] WPS Excel通过添加宏实现表格合并

    万次阅读 热门讨论 2018-03-06 14:20:15
    在我们使用Excel时,通常会遇到让各个地区、各个学院或下属单位收集数据的情况,有时还会每月、每周,...一、合并当前文件夹下所有文件表格假设存在如下贵州省九市州的数据,如下图所示:打开每个表格的格式都一样...

    在我们使用Excel时,通常会遇到让各个地区、各个学院或下属单位收集数据的情况,有时还会每月、每周,甚至是每日调度数据,而当我们得到了这些Excel文件表格之后,很多同志会进行人工手动汇总,这大大降低了办公的效率。本文主要介绍WPS Excel宏,讲述两种自动汇总表格数据的方法,通过VB代码实现。



    一、合并当前文件夹下所有文件表格


    假设存在如下贵州省九个市州的数据,如下图所示:


    打开每个表格的格式都一样,安顺市显示如下图所示。注意,如果是向下属单位收集数据,通常需要固定好格式,方便汇总生成透视图形,形成最终的报告。



    第一步 创建一个新的xls文件,比如“汇总.xls”。

    第二步 在“开发工具”中选择“VB编辑器”,如下图所示。



    第三步 在弹出的Microsoft Visual Basic界面中,选择“Project”中的“Sheet1”。




    输入如下代码并点击运行按钮。

    Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As workbook, WbN As String
    Dim G As Long
    Dim Num As Long
    Dim BOX As String
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
    Do While MyName <> ""
    If MyName <> AWbName Then
    Set Wb = Workbooks.Open(MyPath & "\" & MyName)
    Num = Num + 1
    With Workbooks(1).ActiveSheet
    .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
    For G = 1 To Sheets.Count
    Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
    Next
    WbN = WbN & Chr(13) & Wb.Name
    Wb.Close False
    End With
    End If
    MyName = Dir
    Loop
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
    End Sub

    第四步 汇总数据如下图所示,同时汇总完成之时会提示对话框。



    同时删除多余的表头,然后简单修订如下图所示:


    最终输出表格如下所示:





    注意,在汇总过程中如果出现最后一行为备注事宜,建议删除只保留统计的数据;同时如果其他Sheet有数值,建议也删除,否则它也会被复制至汇总表。


    第五步 选中所有数据,然后在“数据”栏中点击“数据透视表”。



    第六步 选择的字段进行透视汇总,比如统计各市州所包含的县市区。




    同时,可以汇总各式各样的数据,如下图所示:




    二、合并当前文件各个子Sheet数据


    下面讲解第二种方法,对当前Excel文件中的各个Sheet进行汇总,步骤和上述方法一样,重要的是这段VB宏代码。假设存在黔东南州、安顺市、毕节市,如下图所示:


    代码如下:

    Sub 合并当前工作簿下的所有市级分表工作表()
    Application.ScreenUpdating = False
    For j = 4 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name
    Then
    X = Range("A65536").End(xlUp).Row + 1
    Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
    Next
    Range("B1").Select
    Application.ScreenUpdating = True
    MsgBox "当前工作簿下的全部市级分表工作表已经合并完毕!", vbInformation, "提示"
    End Sub
    


    最后希望文章对您有所帮助,如果存在不足之处,请海涵~
    (By:Eastmount 2017-03-06 下午3点  http://blog.csdn.net/eastmount/ )




    展开全文
  • 这几天,好烦。。一个搞技术人员,被叫去合并报表,几百个文件合并到一个excel 里面,当时就是泪流满面。作为一个技术人员,怎么会做这种无聊的工作呢...先解压 得到wps2019_vba.exe 和 合并表格-改良.xlsm 两个文件

    这几天,好烦。。一个搞技术人员,被叫去合并报表,几百个文件合并到一个excel 里面,当时就是泪流满面。作为一个技术人员,怎么会做这种无聊的工作呢?百度,google 齐上阵,终于找到一个VBA 东西可以合并,接下来就操作给大家看:

    睁大眼睛,准备开始
    目前支持windos 系统,首先下载 工具
    下载链接:https://download.csdn.net/download/ding_bao/12788238 点击下载
    先解压 得到wps2019_vba.exe合并表格-改良.xlsm 两个文件。

    安装 wps2019_vba.exe ,安装成功后,把需要合并的文件都copy 到一个文件夹里面,把 合并表格-改良.xlsm 这个文件也放在里面:
    如图:
    在这里插入图片描述

    没关系,这个只是宏被禁用了,我们点确定,然后点击上面的启用宏,然后再次点击 合并 ,需要填写文件名,然后确定:
    在这里插入图片描述
    合并成功:
    在这里插入图片描述
    是不是快很多了,又提高效率,还不出错。

    展开全文
  • 合并多个excel表格

    2019-08-08 10:51:55
    目的: 合并多个表格到一个表格(一个sheet1里),1000+多个手动合并好麻烦 步骤: 首先把所有的excel/wps表格放在一个文件夹下面, 打开一个新的excel表格,点击数据----新建查询—从文件----从文件夹,选中路径...

    目的: 合并很多个表格到一个表格(一个sheet1里),1000+多个手动合并好麻烦
    步骤: 首先把所有的excel/wps表格放在一个文件夹下面,
    表格放在同一文件夹下面
    打开一个新的excel表格,点击数据----新建查询—从文件----从文件夹,选中路径就好了,之后就会了
    在这里插入图片描述
    这些步骤之后,点击组合和加载到。然后sheet1,确定就ok了。
    在这里插入图片描述

    展开全文
  • 当我们有多个表格的内容需要合并到一个表格中,很多人会采取复制粘贴的方式。表格数量少时可能影响不大,数量多了,【表格合并】功能就会大显神威。下面教大家如何快速完成多表格合并。温馨提示,如果图片用手机看不...
  • 合并多个excel文档同时自动去除除第一个表格之外的表格的表头方法步骤: 1、新建一个文件夹 2、将要合并的表格放到里面 3、并在文件夹内新建一个excel表格文件。 4、用excel打开,因为WPS没有宏命令所以只能使用...
  • 新建一文件夹将要合并表格放到里面新建一个表格用excel打开右击Sheet1选择查看代码PS:excel有着一项,WPS没有将下列代码复制到文本框中:Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, ...
  • 读者在用PQ合并多表的时候,出现数据重复,怎么回事?这是一份全年12月的明细数据,每月份格式都一样,存在插入表格或者筛选状态。现在要将这些数据全部合并,用手工复制粘贴是很麻烦的,而用PQ如果不熟,会出现...
  • 估计是年底的原因,后台一大堆粉丝要学合并,这次把所有版本的合并方法都集齐了。这是一份全年12月的明细数据,每月份格式都一样,存在插入表格或者筛选状态。现在要将这些数据全部合并,用手工复制粘贴是很...
  • 年底了,这次把所有版本的合并方法都集齐了(领取方法见文末)。下图是一份全年12月的明细数据,每月份格式都一样,存在插入表格或者筛选状态。现在要将这些数据全部合并,用手工复制粘贴是很麻烦的,而用PQ...
  • 28. 快速关闭多个文件 20 29. 选定多个工作表 20 30. 对多个工作表快速编辑 20 31. 移动和复制工作表 21 32. 工作表的删除 21 33. 快速选择单元格 21 34. 快速选定EXCEL区域(微软OFFICE技巧大赛获奖作品) 22 35. ...
  • Excel无忧插件 v1.0

    2019-01-07 10:23:45
    软件支持Excel和WPS,支持简体、繁体和英文系统,安装之后可以帮助用户轻松在Excel表格内实现Excel报表批量合并/拆分、多文件批量查询/汇总、批量导入/导出图片等大20功能,有效提升用户的工作效率,便捷易用!
  • (1)添加文件:可一次添加以上类型的多个文件 (2)添加目录:可添加一个文件夹中包含以上类型的文件 (3)拖拽文件及目录:可将文件目录及文件直接拖拽到表格中,自动将以上类型外的文件过滤 3、右键菜单 (1)删除选中 (2...
  • 所做工作的产品,除了图纸...汇总阶段对于项目经理就是重体力活,要把 N docx 文件合并成一,还要统一排版调格式。排版是最头疼且消耗耐心的,因为:即使提前做了统一的格式规定,还是有人会按照自己的写作习惯...
  • 导出到excel的记录支持所有excel+wps表格文件版本,不依赖excel等软件。 可删除指定时间范围内的数据,支持自动清理早期数据,设置最大保存记录数。 支持报警短信转发,支持多个接收手机号码,可设定发送间隔,...
  • × 项目合并和拆分:将2项目目录合并起来,其中一项目合并到另一项目的子目录中,手动合并文件夹,自动修改数据库; × 流媒体服务; × websocket聊天室; 下载和安装 在release标签中下载二进制文件和源码...
  • 28. 快速关闭多个文件 20 29. 选定多个工作表 20 30. 对多个工作表快速编辑 20 31. 移动和复制工作表 21 32. 工作表的删除 21 33. 快速选择单元格 21 34. 快速选定EXCEL区域(微软OFFICE技巧大赛获奖作品) 22 35. ...
  • Excel技巧大全

    2015-05-06 07:21:37
    28. 快速关闭多个文件 12 29. 选定多个工作表 12 30. 对多个工作表快速编辑 13 31. 移动和复制工作表 13 32. 工作表的删除 13 33. 快速选择单元格 13 34. 快速选定Excel区域(微软Office技巧大赛获奖作品) 13 35. ...
  • Excel新手完全教程

    2014-10-08 23:13:58
    28. 快速关闭多个文件 17 29. 选定多个工作表 17 30. 对多个工作表快速编辑 17 31. 移动和复制工作表 18 32. 工作表的删除 18 33. 快速选择单元格 18 34. 快速选定EXCEL区域(微软OFFICE技巧大赛获奖作品) 19 35. ...
  • Excel使用技巧大全

    2011-09-13 23:38:39
    28. 快速关闭多个文件 15 29. 选定多个工作表 15 30. 对多个工作表快速编辑 15 31. 移动和复制工作表 16 32. 工作表的删除 16 33. 快速选择单元格 16 34. 快速选定EXCEL区域(微软OFFICE技巧大赛获奖作品) 16 35. ...
  • 28. 快速关闭多个文件 12 29. 选定多个工作表 12 30. 对多个工作表快速编辑 13 31. 移动和复制工作表 13 32. 工作表的删除 13 33. 快速选择单元格 13 34. 快速选定EXCEL区域(微软OFFICE技巧大赛获奖作品) 13 35. ...
  • word使用技巧大全

    热门讨论 2011-03-18 20:37:53
    1.一次保存多个文件 45 2.快速组合多个对象 45 3.快速回到上次编辑的位置 46 4.快速更改英文的大小写 46 5.输入直引号(') 46 二十一、一页关联两个页码小技巧 46 二十二、多图片文档的快速浏览小技巧 47 二十三、...
  • Excel导入SQL数据库

    2011-03-16 13:09:16
    在每个文件前加上“On Error Resume Next”将有助于改善这种情况,因为它会不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完不留下死进程。 补充两点: 1、其他Excel具体操作可以通过录制...
  • 会计理论考试题

    2012-03-07 21:04:40
    23.如果要把C盘某个文件夹中的一些文件复制到C盘的另外一个文件央中,在选定文件后,若采用拖放操作,可以用___B___目标的方法。 A、直接拖至 B、Ctrl十拖至 C、Alt十拖至 D、单击 24.Windows98中的磁盘的根文件夹是...
  • 用文本编辑器打开这个文件,将里面的词条复制粘贴到你自己的拼音方案即可。 输入法方案注意事项 “五笔86+笔画·单字含生僻字”:专门用于处理生僻字,可五笔编码输入,也可直接以“横h竖s撇p捺n(点d)折z”按...
  • 人力资源管理软件(完全免费)

    热门讨论 2011-03-08 11:36:20
    本人力资源软件包含可以输出到excel、wps表格、html等文件 本人力资源软件包含提供虚拟域名互联网浏览器访问 支持中控、依时利、舒特、文本接口等多种考勤机 绿色软件,安全方便 单机永远免费,升级免费 人力...

空空如也

空空如也

1 2
收藏数 27
精华内容 10
关键字:

wps表格合并多个文件