精华内容
下载资源
问答
  • 昨天发了一个汇总工作簿数据的PowerQuery教程,有同学就反应,是旧版本的Excel用不...要汇总数据,其实方法是比较多的,但是各有优缺点,而用VBA来做,简单易行,任意版本的Excel都可以用(WPS的同学,请自行安装VBA...

    昨天发了一个汇总工作簿数据的PowerQuery教程,有同学就反应,是旧版本的Excel用不了,也有同学反应是WPS,没有这功能,今天我们就来个通用的方法。如果你经常我们需要合并N多工作簿中的数据到一个工作表中,这文章不要错过,收藏下,以后直接就可以用了。

    要汇总数据,其实方法是比较多的,但是各有优缺点,而用VBA来做,简单易行,任意版本的Excel都可以用(WPS的同学,请自行安装VBA插件)。

    1、合并的源文件介绍:

    4f41d2b3f93477d0c7dc5b217c00afec.png

    一共包括了3个Excel工作簿文件,在每个工作簿中又有两个工作表,这些表格的结构是一样的,包括了商品名称,销售数量,销售金额等等;2、操作步骤2.1 关闭刚才预览的三个Excel文件,并在同文件夹下,新建一个Excel文件,如图所示,汇总.xlsx就是刚才新建的

    5a80ef02aeaf24124c1e5732745aa2e9.png

       2.2、打开汇总文件,在工作表标签sheet1上面点右键,选择查看代码(也可以按键盘上面的快捷键 Alt+F11,一样的功能)

    94242005282e295bd91db115c2c28296.png

    2.3 粘贴代码,运行

    按照下图的1 2 3 的顺序,搞定就可以了,点击3以后,一切都是自动的,程序会依次打开文件,汇总数据,大概3~5秒(若数据多,时间稍长,待屏幕不闪动了),就完成

    07f42a47197e364ad2a5886dd5a1804e.png

    2.4 关闭代码窗口,看看是不是有数据了?

    f64699725b7338035660c41356a26ed2.png

    2.5 若以后还想使用本工作簿,在另存的时候,记得要保存成 "启用宏的工作簿.xlsm" 

    副代码如下:

    直接复制下面的的代码,就可以了

    Sub 合并多个工作簿()
    Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
    Set sh = ActiveSheet
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.*")
    Application.ScreenUpdating = False
    Cells.ClearContents
    Do While MyName <> ""
    If MyName <> ThisWorkbook.Name Then
    With GetObject(MyPath & MyName)
    For Each sht In .Sheets
    If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
    m = m + 1
    If m = 1 Then
    sht.[a1].CurrentRegion.Copy sh.[a1]
    Else
    sht.[a1].CurrentRegion.Copy sh.[a65536].End(xlUp).Offset(1)
    End If
    End If
    Next
    .Close False
    End With
    End If
    MyName = Dir
    Loop
    Application.ScreenUpdating = True
    End Sub
    展开全文
  • 在日常工作中,我们经常会遇到数据汇总这个问题,比如有相同结构的数据表,有多人来完成,最后把每个人完成的数据表汇总到一张表等。遇到这种情况,熟悉VBA或者SQL的人,可以用VBA或者SQL语句来解决,但是复杂的编程...
    在日常工作中,我们经常会遇到数据汇总这个问题,比如有相同结构的数据表,有多人来完成,最后把每个人完成的数据表汇总到一张表等。

    遇到这种情况,熟悉VBA或者SQL的人,可以用VBA或者SQL语句来解决,但是复杂的编程语句总是让大家看着吃力又难记。所以绝大部分人都是逐个打开excel文件,复制粘贴到另一个表格中,然后再进行汇总。

    小编猜,不少从事财务、人事或销售加班都是因为这个原因。想想,如果是日报或月报,每天每月都要重复这个工作,那就会有加不完的班。

    所有导致加班的事都是令人痛恨的事!今天小编就来分享一个Power Query文件夹汇总的技巧。助你消灭让你加班的“小怪兽”。

    先让你瞅瞅它的利害——可以对文件夹内所有文件汇总,还可以任意切换汇总项目。

    7148f60f1393b5e26434d4a48444860c.gif这么好看又方便的汇总到底是怎么完成的呢?具体请看如下步骤:首先,打开汇总工作簿,在数据工具栏下找到获取数据 - 自文件  -  从文件夹 - 文件夹路径 - 浏览 - 添加要被汇总的文件夹 - 确定。62febc984ea2bcf00e3b47594356f0e3.gif

    添加汇总表

    组合-合并并转载数据 - 第一个文件-sheet1 - 下拉菜单中的文件名任意选一个工作表 - sheet1 - 确定(如果有多个工作簿,只需要添加2个左右即可)21b2c8e3deba5adbd8ae3a9d5f23fd70.gif点击确定后会进入“各公司报表-Power Query编辑器“,如下图所示,乙和丙两个公司的数据也合并在界面中了。c80f72baccb420a02d6512063505bbc2.png数据是汇总到一个表格了,但是很多多余的数据不好看,那么,怎么把工作簿多余的数据删除,呈现一个完美的表格呢?

    分列,去后缀

    主页 - 拆分列 - 按分隔符 - 确定 - 删除".xlsx"列,后缀就去除了。4c151eedb3998d97a776a22388666c23.gif

    删除空行、设置标题行

    选取项目列右键 - 删除空 - 点击主页下的“将第一行用作标题” - 打开项目下拉菜单,去掉“项目”勾选(目的是去掉重复的标题)- 确定,多余的空行就删除啦。d582e0c2da3f432ed2eabd334285e130.gif

    导入到Excel表格中

    把获取数据中的数据导入到Excel表格中,怎么导入呢?首先,主页 - 关闭并上载。(你会发现添加的虽然只是乙和丙公司,其实导入的是文件夹中所有公司的数据。)数据就导入到excel表格中了。e94a36b3113a0b98806f64d25def99d2.gif

    生成汇总

    选取导入后的表任一单元格,设计 - 通过数据透视表汇总 - 确定,汇总就生成了。fa19369adbbcd76b16aa376c31725079.gif在分析菜单栏下点击添加切片器 - 勾选项目 - 确定,后面可以选自己喜欢的颜色哦,最后汇总就完成啦!5239002a036352291a57068fd1ecf69e.gif注:(如果用Power Query批量汇总Excel数据时,出现有错误的时候,这可能是一些系统缓存或残留的隐藏文件,这些文章通常都是不需要的,通过筛选(文件名开头不是“~$"的工作簿)的方式去掉就是了哦)如果在日常工作中,再碰到汇总这样的问题,Power Query就可以运用上啦,简单高效,是不是很实用呢。以上就是今天分享的全部内容了,觉得有用的可以转发收藏哦。
    展开全文
  • 用过Excel的朋友肯定会遇到各种繁琐的数据处理问题,其实很多时候可以借助VBA一键实现N多复杂、繁琐的操作,大大解放你的双手,提高效率。永恒君陆陆续续一共分享了VBA的实例共27个,另外还有若干个小的技巧实例。...
    68d4b434b350f65a24d4a9e772468f33.gif

    用过Excel的朋友肯定会遇到各种繁琐的数据处理问题,其实很多时候可以借助VBA一键实现N多复杂、繁琐的操作,大大解放你的双手,提高效率。

    33239a9ff1b2966448cc709a83b862fe.png

    永恒君陆陆续续一共分享了VBA的实例共27个,另外还有若干个小的技巧实例

    88c59a27f0f3a73695e38180ce63583a.png

    27fa9ee647fe8e1cc3a80e5f111e42e0.png

    71a07394e835f219a320156f079f521b.png

    1c93b392ce50e768a805aca321cd2373.png

    这里把这些实例再分类整理一下,方便以后的查询和使用,大致分类如下:

    单元格操作

    实例(1)- 批量制作工资表头
    实例(5)- 快速合并n多个相同值的单元格
    实例(9)- 批量插入、删除表格中的空行
    实例(11)- 拆分单元格并自动填充
    实例(12)- 如何合并多个单元格而不丢失单元格的数据?
    实例(13)- 自动生成序号、一键排版(列宽、行高自适应等)

    工作表(簿)操作

    实例(2)- 批量将工作表拆分为单独文件
    实例(3)- 多个工作簿批量合并
    实例(4)- 根据已有名称,批量新建表格
    实例(7)- 一键批量打印工作簿

    数据汇总

    实例(6)- 一键汇总多个sheet数据到总表
    实例(19) –  一键汇总不完全相同的sheet到总表

    数据提取

    实例(8)- 利用正则表达式进行定向提取
    实例(10)- 统计同一列中出现次数并标注
    实例(14)- 依据指定单元格的值,复制并插入相同数量的行
    实例(15)- 按指定字段一键筛选并取最低价记录
    实例 (16) - 按指定字段分类批量提取内容
    实例 (17) - 遍历多个工作簿并提取内容到总表
    实例(18) – 一键将单列长数据平均拆成多列
    实例(20) – 一键填充每月员工拜访地区
    实例(22) – 一键筛选其他工作表或工作簿的数据
    实例(24) - 新股(债)中签一键批量查询
    实例(27) - 一键按列分类并保存单独文件

    word操作

    实例(23) - 一键批量提取word表格内容
    实例(26) – 一键批量提取word文字内容

    其他

    实例(25) - 班级随机点名并播放
    实例(21) – 如何快速准确录入数据
    excel如何快速汇总多个类别的综合?
    VBA运行后加上进度条,酷不酷?
    两句代码快速提高VBA运行效率
    正则表达式,查找、筛选数据的利器,你不能不会!


    另外,为了帮助大家更好的理解,永恒君又重新整理了几套关于VBA的视频教程,一并分享给大家。

    b031130b6b37743c5a9cacf62cb65416.png

    为这些实例花了永恒君大量的时间编写、整理,如果你需要以上所有的程序文件和教程,可直接联系我付费19.9元获取

    6cdc03aedd5f06cde7fc9de377042862.png

    当然,为了推广一下公众号,活动期间,你只需要推荐5位新朋友来关注永恒君的公众号,将这五位朋友关注的信息截图发送给我,就可以免费获取上面27个实例文件+VBA教程

    此活动24小时内有效!!!此活动24小时内有效!此活动24小时内有效!

    最后,以上所有都已经上传到知识星球了,已付费的伙伴注意查收。

    微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com

    展开全文
  • 合并计算:利用数组去重的方法把相同名称的行汇总计算 Private Sub CommandButton1_Click() Set d = CreateObject("scripting.dictionary") myArray = Selection Dim n For Each n In myArray If Not d.exists...

    合并计算:利用数组去重的方法把相同名称的行汇总计算

    Private Sub CommandButton1_Click()
    
    Set d = CreateObject("scripting.dictionary")
    
    myArray = Selection
    
    Dim n
    For Each n In myArray
        If Not d.exists(n) Then d.Add n, Application.WorksheetFunction.Match(n, Selection, 0)
    Next
    
    k = d.keys
    t = d.items
    
    For m = 0 To d.Count - 1
        Sheets("清分明细").Range("A" & Sheets("清分明细").Range("A1").End(xlDown).Row + 1).Value = k(m)   '单位名
        Sheets("清分明细").Range("B" & Sheets("清分明细").Range("B1").End(xlDown).Row + 1).Value = Application.WorksheetFunction.SumIf(Selection, k(m), Sheets("采购明细").Range("H" & Selection.Row & ":H" & Selection.Row + Selection.Rows.Count))    '供货总价
        Sheets("清分明细").Range("C" & Sheets("清分明细").Range("C1").End(xlDown).Row + 1).Value = Application.WorksheetFunction.SumIf(Selection, k(m), Sheets("采购明细").Range("I" & Selection.Row & ":I" & Selection.Row + Selection.Rows.Count))    '预付款
        
        Sheets("清分明细").Range("D" & Sheets("清分明细").Range("D1").End(xlDown).Row + 1).Value = Sheets("采购明细").Range("J" & Selection.Row - 1 + t(m)).Value  '政府合同金额
        Sheets("清分明细").Range("E" & Sheets("清分明细").Range("E1").End(xlDown).Row + 1).Value = Sheets("采购明细").Range("M" & Selection.Row - 1 + t(m)).Value  '业务编号
    Next
    End Sub

     

    Private Sub CommandButton1_Click()
    
    Dim name As String
    For Each rng1 In Selection
    name = rng1
    
    For Each Rng In Sheets("清分明细").Range("A2:A" & Range("A1").End(xlDown).Row)  '这里导致卡顿
        If Rng = name Then
            a = Rng.Row
            Sheets("清分明细").Range("F" & a & ":H" & a).Value = Sheets("提款申请").Range("G" & rng1.Row & ":I" & rng1.Row).Value
            Sheets("清分明细").Range(a & ":" & a).Interior.Color = 65535
        End If
    Next
    
    Next
    End Sub
    

    自动填写数据

    Private Sub CommandButton1_Click()
    Shell "cmd.exe /c \\172.20.200.200\Shared\02项目文档\100产品代理业务\0君子\test\Output.bat"
    End Sub
    

     

    python \\172.20.200.200\Shared\02项目文档\100产品代理业务\0君子\test\OutputReport.py

     

    # coding=gbk
    
    import xlrd
    from docxtpl import DocxTemplate
    
    url ="\\\\172.20.200.200\\Shared\\02项目文档\\100产品代理业务\\0君子\\2020君子业务.xlsm"
    
    workbook = xlrd.open_workbook(url)
    sheet1_object = workbook.sheet_by_name(sheet_name="业务详情")
    
    nrows = sheet1_object.nrows
    
    inputs = input("请输入业务编号在第几列,如A列为第0列:")
    dict = {}
    
    for i in range(0,nrows):
        dict[sheet1_object.cell_value(rowx=i,colx=0)] = sheet1_object.cell_value(rowx = i,colx = int(inputs))
    
    docurl = "\\\\172.20.200.200\\Shared\\02项目文档\\100产品代理业务\\0君子\\test\\代理填写模板.docx"
    savepathname = "\\\\172.20.200.200\\Shared\\02项目文档\\100产品代理业务\\0君子\\test\\代理业务"+ inputs +".docx"
    
    doc = DocxTemplate(docurl) #加载模板文件
    doc.render(dict) #填充数据
    doc.save(savepathname) #保存目标文件

     

    展开全文
  • 需求:最近工作需要将多个采购单的数据汇总到一张表中查看,因为每张采购单格式相同,且每个采购单对应一个sheet表,现在想把张三明细、李四明细中的每月采购总额、期初应付款余额、供应商名称等汇总到一张sheet中,...
  • 这个事情本身并不是什么难题,只是把12个月的月表数据按姓名进行合计,但是每个月中人员并不相同,有走的,也有新加入的。开始想用公式实现,实现时发现非常麻烦,主要是人员不定,就算弄好了,估计速度也成问题。...
  • 利用Excel进行数据抽取汇总时,常需要把位于不同文件夹里大量的具有相同表结构的Excel文件中汇总数据,合并到新的文件中,以便于...通过Excel VBA编程,可以自动将指定的数据汇总合并到新的Excel文件中,提高工作效率。
  • 2 多表合并结构相同数据源:嘎嘎。。。数据都是模拟的说明:(1) 结构相同的表,是指在多个工作簿、工作表中,他们的表头标题行是完全一致的,只是从第二行开始的明细行信息不同。(2) 这些用于合并的...
  • 还有童鞋表示字段顺序不同,其实就是小儿科的事情,他们要汇总数据,不仅仅字段展示顺序不同,而且字段都不相同呢,这里小编内心只想说一句话:你们之前都是怎么熬过来的场景模拟 我们还是继续只用之前的...
  • VBA与数据库

    2015-11-19 18:07:38
    •实例5-4 将多个工作簿的某个工作表数据汇总为新Access数据库(Access) 131 •实例5-5将多个工作簿的某个工作表数据保存为不同的数据表(Access) 132 •实例5-6 将工作表数据保存到已有的Access数据库(循环方式...
  • 给出的数据是几十个班混在一起,挂科人数是每个班的人数,现在需要把他们相同的科目统计一个总人数 只看这个要求,其实用数据透视表可以很快得出结果,但是任何EXCEL的处理面对要批量处理的要求后,只能靠VBA才能...
  • Excel VBA与数据库整合应用范例精讲

    热门讨论 2011-10-29 18:48:38
    实例5-4 将多个工作簿的某个工作表数据汇总为新Access数据库(Access) 实例5-5 将多个工作簿的某个工作表数据保存为不同的数据表(Access) 实例5-6 将工作表数据保存到已有的Access数据库(循环方式)(ADO) ...
  • 实例5-4 将多个工作簿的某个工作表数据汇总为新Access数据库(Access) 实例5-5 将多个工作簿的某个工作表数据保存为不同的数据表(Access) 实例5-6 将工作表数据保存到已有的Access数据库(循环方式)(ADO) ...
  • 04131向单元格区域一次性输入相同数据 04132通过数组向单元格区域一次性输入数据 04133向单元格区域输入连续值 04134向单元格区域输入连续的日期 04135向单元格区域输入连续的字符 04136向单元格输入公式(A1格式...
  • Excel VBA和文件夹-1.6遍历文件夹打开指定格式的文件前景提要之前我们学会了如何通过dir()来遍历文件夹并打开文件的方法,当你文件中有很多相同格式的文件要汇总的时候,就可以考虑采用这个方法了,不过实际工作中,...
  • 之前我曾经教过 VBA 和分类汇总的方法,详情请参阅Excel VBA(20) – 批量合并单元格Excel 批量合并单元格,量大且需要合并的行数都不一样今天要教大家另外一种方法,就是我们平时常用的数据透视表。万万没想到,数据...
  • 2、需要合并的工作表名称相同(如: “sheet1”),且数据字段一样(如:A列表示序号,B列表示姓名,C列表示月工资等); 3、需要合并的数据所在区域起始行列一致(如:有相同的表头) ALL IN ONE Option Explicit ...
  • 在我们实际工作中,经常会碰到这样的问题,比如有相同结构的数据表,有多人来完成,最后把每个人完成的数据汇总到一张表。或者,我们每年做一个数据文件,最后把各年的数据文件汇总到一张表。此类问题,原来都用...
  • ACCESS911科目汇总

    2005-12-02 10:36:26
    <BR><BR>在看过guang59的登录例程后发现基本思路与我相同,但他不考虑直接调用数据表的情况,在直接调用talble时密码将泄漏无余(另外是否考虑到滚轮鼠标的使用者,你可以自己试试,会挺有趣的)。而我考虑用编码...
  • 当文件比较多时,手工合并表格通常是件很麻烦的事情,而如果数据量很大,用 Excel 自带的 VBA 来处理也会经常卡死。今天我就来分享一个专业的外部数据工具——集算器,掌握了集算器处理 Excel 多表合并的方法,就...

空空如也

空空如也

1 2 3 4
收藏数 75
精华内容 30
关键字:

vba相同数据汇总