精华内容
下载资源
问答
  • 多工作簿指定工作表,全部数据汇总
  • 可以通过该工作簿的代码修改成自己想要的工作簿,方便以后每次汇总工作簿
  • 工作,时常要遇到将许多个工作簿中的数据合并到一个工作表,一个一个的复制粘贴吧,几个表或者十几个表还行,再了恐怕就太费时了,如果再多点比如有几十上百个表要合并,而且又催得急可能就不是加不加班的...

    在工作中,时常要遇到将许多个工作簿中的数据合并到一个工作表中,一个一个的复制粘贴吧,几个表或者十几个表还行,再多了恐怕就太费时了,如果再多点比如有几十上百个表要合并,而且又催得急可能就不是加不加班的问题了,而是会不会耽误工作的重大问题了,一旦耽误了工作其后果是可以想见的。

    今天在这里给大家分享一个快速合并多个工作簿中内容到一个工作表的方法,此方法必须有一个前提条件,这是这些工作簿中的工作表必须是同样的结构。

    5445bfeefd0d401c33ff7961748aeb78.png

    如上图所示,每一个表都具有:序号、学生姓名、性别、出生日期、民族、年级、班级、户口性质这些字段,同时顺序一致。

    首先,将所有需要合并的表以及最终结果表放在同一个文件夹中,如下图所示:

    f6357e96b0aba40e2a4ef64c2117f2f8.png

    打开最终需要的结果表,本例中就是“2019级在校生信息”表,点击“数据”菜单,点击“新建查询”,点击“从文件”,选择“从文件夹”,如下图所示:

    90c64c4b7cd660fc18b8e0c2303f5724.png

    点击“从文件夹”,在出现的界面中点击“浏览”,找到刚才建立的文件夹,如下图所示:

    2adc4aef040592d3faa1e259e4f88018.png

    点击“确定”,点击“确定”,然后出现如下图的结果。

    3799a56b55c150deeed127978c583bec.png

    在上图界面中点击“添加列”,点击“添加自定义列”,出现如下界面:

    1570cc33c65d3c928b5237c3d401b4b5.png

    然后在“自定义列公式”下面的框中输入如下公式:

    =Excel.Workbook([Content]),(注意公式中的首字母是大写的),然后点击确定,此时可以看到后面多了一列,列标为“Custom”的列。如下图所示:

    3cdbb2cf8a8cdf408ba69b064c737732.png

    在最后一列的筛选器中筛选,只选择”DATA”数据选项,将其他选项前面的勾都去掉,如下图:

    0645f407ee9a1abf780b2a44d880a8bd.png

    在上图界面中点出确定,这样原来的列标“Custom”就变成“Custom.data”,如下所示:

    59872439ce758483273c6109a66a8b1f.png

    继续对“Custom.data”右边按钮进行点击,在出现的界面中直接点击确定。

    ff46f1e6249fdee7d2ebf63a1e07ac3c.png

    点击确定后等待几秒钟,表格中所有的数据就显示出来了,如下图所示:

    de0af717a29afea863a1bc043c4c282f.png

    点击“文件”或“开始”,点击“关闭并上载”得到如下表格:

    7a31476c394d0f4ae88061cbce67b5b0.png

    上图表中从“序号”开始后面的数据就是我们需要的,删除“序号民”列前面的数据,得到最终汇总结果:

    de7c319c90a541e972449d210a0cacbc.png

    是不是超简单呢?书上得来终觉浅,绝知此事要躬行。喜欢的话,就跟着我的步骤操作一遍吧。

    展开全文
  • excel多工作簿多工作表数据查询,有三种方法,可自行选择
  • 小伙伴表示没学会,那么我们今天不需要VBA代码,只需要几步操作就可以完成,第1,2,3,4个工作簿里面的数据如下所示:其中第1个工作簿有两个工作表,第2个工作表的内容是:第2个工作簿第第3个工作簿第4个工作...

    前面分享过一个VBA代码的快速合并多个工作簿至一个工作簿,很多小伙伴表示没学会,那么我们今天不需要VBA代码,只需要几步操作就可以完成,

    16a3147129e2fb692da933054ce5ff57.png

    第1,2,3,4个工作簿里面的数据如下所示:

    2adc26cbead912320f182f13ffbc00c6.png

    其中第1个工作簿有两个工作表,第2个工作表中的内容是:

    c77ae79750c506571a77ac1ae3c7a249.png
    61d5b0f62c398adde668c4180964bc40.png

    第2个工作簿

    63cc87f9cceba571184516610d330c5e.png

    第3个工作簿

    3c595967967aeea36a48d2ef9e99c891.png

    第4个工作簿

    如果是4个工作簿,可能复制粘贴也完成了,实际工作中可能是几十个,甚至上百个,那么用复制粘贴就费时费力了,今天教大家不用VBA,几步操作就完成合并

    ❶在数据菜单栏,新建查询,选择从文件,选择从文件夹

    180ce00e212ddc341e67573f81fa4e36.png

    ❷在窗口中选择浏览,然后打开你Excel工作簿存放的文件夹

    9926c3e641c98d58b299ec0bb275a5a8.png

    点击确定之后,会弹出一个新窗口,如下所示:

    f979e2a7b845eca368289c2384ad47f8.png

    ❸然后在这个窗口的,依次单击添加列,添加自定义列

    044776b4e85a2eb7f8b1ec88a5167201.png

    ❹输入公式:=Excel.Workbook([Content]),注意首字母要求大写

    41f829bb7166a8e93d158eac0e0c11af.png

    点击确定之后,窗口中多了一列数据,如下所示:

    c8e9a2773ef947cb8bafe9c59160276a.png

    ❺然后在最后一列的筛选器中筛选,只选择DATA数据选项,其他都取消勾选

    fae7875dd8aca57fa007efdc35949224.png

    这样原来的custom变成了custom.data,如下所示:

    81197c2096a0f72143d952b13a865178.png

    ❻继续对Custom.data右边按纽进行点击,有扩展选择,然后所有的列都是我们需要的

    9b0c13cc499cb40b8ed70c38821d26dd.png

    点击确定之后,表格中所有的数据都显示出来了,如下所示:

    34c46502e219cc8e6cb439aac6be7420.png

    ❼点击文件,关闭并上载,如下所示:

    ad46ba5e3770eebbdc6ac51af6765964.png

    在表格中得到的结果:

    cef83e06feaea4e4eb22aad0cd3b3ba3.png

    后面的内容是我们想要的内容,前面不需要多余项目都可以进行删除,得到最终合并汇总的结果

    0da2b7469703981868daf9157a852c39.png

    你学会了么?动手跟着操作一次吧。

    欢迎留言讨论,期待您的转发和分享

    ---------------

    欢迎关注,更多精彩内容持续更新中....

    展开全文
  • 1.同一目录下的多工作簿,每个工作簿中有一张或张工作表,一键全部汇总 Sub 合并目录所有工作簿全部工作表() Dim MP, MN, AW, Wbn, wn Dim Wb As Workbook Dim i, a, b, d, c, e Application.ScreenUpdating...

    1. 同一目录下的多工作簿,每个工作簿中有一张或多张工作表,一键全部汇总

    Sub 合并目录所有工作簿全部工作表()
    
    Dim MP, MN, AW, Wbn, wn
    
    Dim Wb As Workbook
    
    Dim i, a, b, d, c, e
    
    Application.ScreenUpdating = False
    
    MP = ActiveWorkbook.Path
    
    MN = Dir(MP & "\" & "*.xls")
    
    AW = ActiveWorkbook.Name
    
    Num = 0
    
    e = 1
    
    Do While MN <> ""
    
    If MN <> AW Then
    
    Set Wb = Workbooks.Open(MP & "\" & MN)
    
    a = a + 1
    
    With Workbooks(1).ActiveSheet
    
    For i = 1 To Sheets.Count
    
    If Sheets(i).Range("a1") <> "" Then
    
    Wb.Sheets(i).Range("a1").Resize(1, Sheets(i).UsedRange.Columns.Count).Copy .Cells(1, 1)
    
    d = Wb.Sheets(i).UsedRange.Columns.Count
    
    c = Wb.Sheets(i).UsedRange.Rows.Count - 1
    
    wn = Wb.Sheets(i).Name
    
    .Cells(1, d + 1) = "表名"
    
    .Cells(e + 1, d + 1).Resize(c, 1) = MN & wn
    
    e = e + c
    
    Wb.Sheets(i).Range("a2").Resize(c, d).Copy .Cells(.Range("a1048576").End(xlUp).Row + 1, 1)
    
    End If
    
    Next
    
    Wbn = Wbn & Chr(13) & Wb.Name
    
    Wb.Close False
    
    End With
    
    End If
    
    MN = Dir
    
    Loop
    
    Range("a1").Select
    
    Application.ScreenUpdating = True
    
    MsgBox "共合并了" & a & "个工作薄下全部工作表。如下:" & Chr(13) & Wbn, vbInformation, "提示"
    
    End Sub
    
    

    2. 同一工作簿中的多工作表,将指定的多工作表一键汇总

    Sub huizongdata()
    
        Rows("2:10000").Clear
         '第一步是先清空汇总表的数据,这里是从第2行开始清理到10000行,可以自己修改。
         
        Application.Wait Now + TimeValue("00:00:01")   '延迟1秒
        
        Dim st As Worksheet, rng As Range, rrow As Integer, i As Integer
        
        '定义一些需要用到的变量
        
        'For Each st In Worksheets  循环开始,遍历所有的工作表
        For i = 3 To Worksheets.Count
        
            Set st = Sheets(i)
            
            Set rng = Range("A10000").End(xlUp).Offset(1, 0)
            
            '每次循环就动态定位需要拷贝数据的区域,即获得A列第一个空的单元格
            
            rrow = st.Range("A2").CurrentRegion.Rows.Count - 1
            
            '获得每个工作表中的数据记录数,即行数,同时需要减去表头的行数,这里是减掉2行。
            
            st.Range("A2").Resize(rrow, 9).Copy rng
            
            '将数据扩展rows行,4列拷贝到数据,并粘贴到汇总表
        
        Next i
       
    
    End Sub
    

     

    展开全文
  • 多工作簿多工作表的数据汇总 目标 excel中多表单据特定cell的内容汇总成数据条。 demo分解 实例1.1的基础上需要对工作簿进行操作。 依次打开工作簿用到了Dir()函数 ...

    实例

    多工作簿多工作表的数据汇总

    目标

    excel中多表单据中特定cell中的内容汇总成数据条。

    demo分解
    1. 在实例1.1的基础上需要对工作簿进行操作。
    2. 依次打开工作簿用到了Dir()函数
    3. 因为不在统一工作簿内,需要对targetbook和activeworkbook辨别
    文件不知怎们上传demo文件知道的留言一下
    技术思辨
    1. 主要在于dir函数在do循环下的结合。

    代码示例

    Option Explicit
    
    Sub subroutine1()
        Dim r, c, count As Integer
        r = 5   '规定起始行
        Rows(r & ":65536").Delete '清除数据
        
        Dim targetSheet As Worksheet
        Set targetSheet = Sheet2
        count = targetSheet.Cells(3, 3).End(xlToRight).Row
        Dim filename, filepath
        filepath = ThisWorkbook.Path
        filename = Dir(filepath & "\*.xlsx")
        Do Until filename = ""
            Workbooks.Open filepath & "\" & filename
            filename = Dir
            Dim sht As Worksheet
            For Each sht In Worksheets
                targetSheet.Cells(r, 1).Value = ActiveWorkbook.Name
                targetSheet.Cells(r, 2).Value = ActiveSheet.Name
                Dim I As Variant
                For I = 3 To count + 2
                    targetSheet.Cells(r, I) = ActiveSheet.Range(targetSheet.Cells(3, I).Value).Value
                Next I
                r = r + 1
            Next sht
            ActiveWorkbook.Close False
        Loop
    End Sub

     

    展开全文
  • 用ctrl+c和ctrl+v来搬运数据么?本文分享了excel五个常用的批量操作技巧...目录批量创建工作簿批量修改工作簿表合并表拆分文件合并 批量创建工作簿 批量修改工作簿表合并 表拆分 文件合并 ...
  • PowerQuery合并工作簿到一张表

    千次阅读 2021-03-30 13:41:11
    1.新建一个工作簿,执行“数据”-“新建查询”-“获取数据”-“自文件”-“从文件夹”命令,如下图 ...打开POWER QUERY编辑器窗口。 ...要汇总的工作簿数据都这个自定义列。 6.单击自定义列右边
  • Excel 作为流行的个人计算机数据处理软件,混迹于各个领域,程序员这里也是常常被处理的对象,可以处理 Excel 格式文件的 Python 库还是挺的,比如 xlrd、xlwt、xlutils、openpyxl、xlwings 等等,但是每个库...
  • 当同一个工作簿中有十几份甚至上百份的联系名单时,再一张一张的点击查看是十分缓慢的,难道就没有可以快速查看的方法吗?笔者苦思冥想多日,经搜索查询终于寻得一个不错的方法,虽然不是最好的,但绝对能帮助大家...
  • VBA经常会有一个这样的需求,执行运算之前需要先判断指定工作表名称是否存在,否则程序将会报“下标越界”的错误,给用户不好的体验 我所知晓的查询工作表名称通常有3种方法: 一、遍历所有工作表,如果工作表...
  • 工作簿-此仓库工作簿可以作为ARM模板部署到您的Azure Monitor环境 警报-此存储库的警报是基于日志的,这意味着它们实际上是日志查询。您可以在上运行它们,或使用它们您自己的环境创建和测试警报 贡献 ...
  • 上一篇文章Power BI Power Query 批量导入1-单...我现在有某公司北京、成都、广州、上海各分部的销售数据工作簿,各分部各年度的数据分别存储相应工作簿的对应工作表,如下图所示。 1、首先,请按照Power...
  • Excel的使用过程,经常需要引用其他工作簿的数据,而用户往往希望能不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据,有以下几种方法可以实现。 1、使用公式 如果需要引用的数据不是太,...
  • python读取Excel工作簿、工作表

    千次阅读 2020-07-01 21:55:22
    python读取Excel工作簿、工作表
  • 第一步:拿到文件夹下所有的工作簿文件的全路径字符串列表,Power Query界面依次点击“新建源/文件/文件夹”,填入文件夹路径后点击确定,随后弹出对话框,直接点击“转换数据”按钮 第二步:添加一个...
  • NPOI导出工作簿

    千次阅读 2016-07-20 09:27:39
    //创建工作簿 string sql = string .Empty; if (! string .IsNullOrEmpty( this .txt_Year.Text)) //判断年度是否录入 { sql = @"sql语句可自行配置,不同的年份导出不同数据" ; //根据年份查询数据信息...
  • 有状态SessionBean,用累加器,以对话状态存储起来,创建EJB对象,并将当前的计数器初始化,调用每一个EJB对象的count()方法,保证Bean正常被激活和钝化,EJB对象是用完毕,从内存清除…… Java Socket 聊天...
  • 有一种做法是通过先将每个待合并表建立成查询后,再使用PQ的追加功能达到多工作表合并.但鉴于某神秘原因本人始终无法成功(原因待查....- .-).只好曲线救国,以下为步骤. 1.每个待合并的工作表分别创立表.(Ctrl+T or L...
  • SQL语句应用:不同工作薄,不同工作中查询 SQL语句实例
  • excel 2007显示开发工具的方法: excel 2007 和2003区别很大,很设置的地方经常找不到。比如excel的开发工具,2007里就缺省是没有显示... 个人宏工作簿,是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第
  • 帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过。...2 遍历这些关键字,从【总表】中查询这个关键字,把这一行后面的内容复制到 【预算】表去 3 把【操作】制定内容...
  • python根据excel不同字段将工作表拆分为不同工作簿
  • Excelvba从另一个工作簿取值

    千次阅读 2019-01-20 12:56:00
    Private Sub getValue_Click() Dim MyWorkbook As Workbook Set MyWorkbook = Application.Workbooks.Open("C:\Users\jiangwenwen\Desktop\VBAテスト\テスト2.xlsx") ThisWorkbook.Sheets("Sheet1").Range("A1")....
  • 主要介绍了PHPExcel实现的读取多工作表操作,结合实例形式分析了PHPExcel针对Excel个sheet工作表的读取、解析相关操作技巧,需要的朋友可以参考下
  • 选择纵向合并的示例文件,**注意:**如果工作簿中包含个工作表,那么你选的示例文件是工作簿中的第几个,那么合并的就是所有工作簿中的第几个工作表。(比如,示例文件选的某个工作簿中的第2个工作表,那么...
  • 日常的数据分析工作,我们经常需要批量导入数据,今天我们先针对单工作簿中所有表数据的导入进行演示,例如下图所示的某公司北京分部2012年到2015年销售产品的记录数据,每个年度为一个独立的表,且表结构一样。...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 13,434
精华内容 5,373
关键字:

如何在多工作簿中查询