精华内容
下载资源
问答
  • 多个表格如何做目录返回
    千次阅读
    2021-06-03 10:37:02
    Option Explicit
     
    ' 文件系统对象,用来操作文件/目录;
    Private fso As New FileSystemObject
      
    Sub 汇总当前目录下的文件()
        ' 得到当前工作簿所在目录的路径字符串;
        Dim strCurDir As String
        strCurDir = ThisWorkbook.Path
     
        ' 得到工作簿所在目录的文件夹对象;
        Dim objFolder As Folder
        Set objFolder = fso.GetFolder(strCurDir)
     
        ' i用于记录汇总表的当前行,由于数据从第二行开始,所以这里i=2;
        Dim i As Integer
        i = 2
     
        ' 得到当前工作簿的第一个工作表对象(也就是汇总表);
        Dim objSheet As Worksheet
        Set objSheet = ThisWorkbook.Sheets(1)
     
        ' 遍历汇总工作目录下的所有文件;
        Dim objFile As File
        For Each objFile In objFolder.Files
            ' 如果当前文件不是汇总文件(是数据文件),就打开,读取数据;
            If InStr(objFile.Name, "特采单清单汇总") = 0 Then
                ' 打开工作簿,并设置工作簿对象;
                Dim objBook As Workbook
                Set objBook = Workbooks.Open(objFile.Path)
     
                ' 设置第二个工作表对象,此对象对应每个数据文件;
                Dim objSheet2 As Worksheet
                Set objSheet2 = objBook.Sheets(1)
     
                ' 得到工作簿的主文件名;
                Dim strBookName As String
                objSheet.Cells(1, 1) = "名称"
                objSheet.Cells(1, 2) = "时间"
                strBookName = fso.GetBaseName(objBook.Name)
     
                ' 设置第i行的数据,有的来自文件名,有的来自目录名,有的来自数据表的指定位置;
                objSheet.Cells(i, 1) = "(" & strBookName & "工作表)" ' 附件
                objSheet.Cells(i, 2) = strBookName ' 发行时间
                objSheet.Cells(i, 3) = objFolder.Name ' 目录
                objSheet.Cells(i, 4) = objSheet2.Cells(3, 3) ' 品名
                objSheet.Cells(i, 5) = objSheet2.Cells(4, 3) ' 供应商
                objSheet.Cells(i, 6) = objSheet2.Cells(4, 5) ' 数量
                objSheet.Cells(i, 7) = objSheet2.Cells(5, 3) ' 原因
                ' 准备写入下一行
                i = i + 1
     
                ' 关闭当前的数据工作簿;
                objBook.Close
            End If
        Next
    End Sub
    

    更多相关内容
  • 一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每组织一个工作表。 二、进入VBE编辑页面 三、插入一新的模块。 四、在模块1窗口粘入如下代码 ,并保存 五、通过【开发者工具】...

    目录

    一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。

    二、进入VBE编辑页面

    三、插入一个新的模块。

    四、在模块1窗口粘入如下代码 ,并保存

    五、通过【开发者工具】,插入窗口按钮

     六、点击【按钮】,选择第一行,继续选择【组织】单元格即可

    七、在第四部粘贴代码进去后,直接点击​ 运行也可以,按提示选择行和单元格,效果一样。

     八、将多个sheet表拆分为独立表格


     

    一、原始数据表如下(sheet页名称为:数据源),需要根据B列人员所属组织拆分成每个组织一个工作表。

     二、进入VBE编辑页面

    1. 通过【开发工具】>>【查看代码】进入编辑页面
    2. 通过【右击】sheet页名称,选择【查看代码】进入编辑页面
    3. 通过ALT+F11进入编辑页

     

    三、插入一个新的模块。

    四、在模块1窗口粘入如下代码 ,并保存

    Sub CFGZB()
        Dim myRange As Variant
        Dim myArray
        Dim titleRange As Range
        Dim title As Variant
        Dim columnNum As Integer
        myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)
        myArray = WorksheetFunction.Transpose(myRange)
        Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“组织”", Type:=8)
        title = titleRange.Value
        columnNum = titleRange.Column
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Dim i&, Myr&, Arr, num&
        Dim d, k
        For i = Sheets.Count To 1 Step -1
            If Sheets(i).Name <> "数据源" Then
              
            End If
        Next i
        Set d = CreateObject("Scripting.Dictionary")
        Myr = Worksheets("数据源").UsedRange.Rows.Count
        Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))
        For i = 1 To UBound(Arr)
            d(Arr(i, 1)) = ""
        Next
        k = d.keys
        For i = 0 To UBound(k)
            Set conn = CreateObject("adodb.connection")
            conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
            Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"
            Worksheets.Add after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = k(i)
                For num = 1 To UBound(myArray)
                    .Cells(1, num) = myArray(num, 1)
                Next num
                .Range("A2").CopyFromRecordset conn.Execute(Sql)
            End With
            Sheets(1).Select
            Sheets(1).Cells.Select
            Selection.Copy
            Worksheets(Sheets.Count).Activate
            ActiveSheet.Cells.Select
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        Next i
        conn.Close
        Set conn = Nothing
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    End Sub
    

    五、通过【开发者工具】,插入窗口按钮

     六、点击【按钮】,选择第一行,继续选择【组织】单元格即可

     

    七、在第四部粘贴代码进去后,直接点击 运行也可以,按提示选择行和单元格,效果一样。

     八、将多个sheet表拆分为独立表格

    1. 如果要将已经拆分为多个sheet页的excel表格中的sheet页拆分为多个独立的表格,只需要在编辑其中新增模块,粘贴如下代码并执行,等待片刻即可
    Private Sub 分拆工作表()
    Dim sht As Worksheet
    Dim MyBook As Workbook
    Set MyBook = ActiveWorkbook
    For Each sht In MyBook.Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    ActiveWorkbook.Close
    Next
    MsgBox "文件已经被分拆完毕!"
    End Sub

     

    展开全文
  • 例如工作薄中有多个工作表,如图: 将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果 打开需要拆分的excel,在任意工作表右击,点击“查看代码” 在打开的窗口中输入如下代码:...

     以下是office中的EXCEL,wps会员的话自带拆分功能(特别方便)

    • 例如工作薄中有多个工作表,如图:

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 打开需要拆分的excel,在任意工作表右击,点击“查看代码”

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 在打开的窗口中输入如下代码:

      Private Sub 分拆工作表()

             Dim sht As Worksheet

             Dim MyBook As Workbook

             Set MyBook = ActiveWorkbook

             For Each sht In MyBook.Sheets

                 sht.Copy

                 ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

                 ActiveWorkbook.Close

             Next

             MsgBox "文件已经被分拆完毕!"

         End Sub

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 点击绿色三角,运行程序,等待拆分。

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 拆分成功后,会弹出窗口提示。

      怎么将Excel多个工作表拆分成多个单独的Excel

    • 7

      返回Excel工作簿文件所在路径 即可查看已经拆分的工作薄。

      怎么将Excel多个工作表拆分成多个单独的Excel

    展开全文
  • EXCEL使用vlookup函数合并多个工作表

    千次阅读 2021-03-17 21:34:52
    EXCEL使用vlookup函数合并多个工作表 vlookup函数功能比较强大,不仅可以在同一个表格中进行使用,还可以对两个不同的表格进行匹配查找。可以进行两个表的合并。 例: 表1 软件工程学生信息表 表2 计算机学院学生...

    EXCEL使用vlookup函数合并多个工作表

    vlookup函数功能比较强大,不仅可以在同一个表格中进行使用,还可以对两个不同的表格进行匹配查找。可以进行两个表的合并。
    例:
    表1 软件工程学生信息表
    在这里插入图片描述
    表2 计算机学院学生成绩表】
    在这里插入图片描述
    很明显的是,两表共用学号,并且表2的成绩是比表1的学生数多的,此时可以将表2的成绩填充到表1中去。
    公式:=VLOOKUP(C2,Sheet2!A$2:B$10,2,0)
    合并结果:
    在这里插入图片描述

    VLOOKUP函数

    VLOOKUP(lookup_value,table_array,col_index_num,range_lookup);

    1. lookup_value 要查找的值
      输入你依据某个值(条件)来查找的值。
      比如我是按照学号来查找数学成绩,当前公式是写在张三一行(第二行),因此是根据C2(张三的学号)来查找。
    2. table_array 要查找的区域
      选择你要查找数据的区域。
      比如我要查找数学成绩,只需要将表二中的学号和成绩全部选中即可
    3. col_index_num 返回数据在查找区域的第几列数
      你需要返回的数据在查找区域的第几列数。
      例如我需要返回的高数成绩是第二列,填2.
    4. range_lookup
      模糊匹配/精确匹配,一般填0即可。
      TIPS:在查找区域中不要忘记在行号前加个“$”,保证下拉时不会改变公式。
    展开全文
  • 多个Excel合并成一个Excel

    万次阅读 多人点赞 2019-06-30 17:38:04
    问题描述: 往往在进行数据统计分析前,会遇到数据分在不同的表里的情况,这时候就需要将多个表的数据先放到一个的数据里面,然后再进行分析。比如班级需要汇总每个人的信息,几十人每个人都发了个人的信息,一...
  • 老板最近越来越过分了,快下班了发给我几百个表格让我把内容合并到一个表格内去。 还好我会Python,分分钟就搞定了,这要是换个不会Python的,不得加班到第二天天亮去了~ 这么好用的技能,必须分享给大家,话不...
  • 多个excel自动合并到同一表格,该段vba代码的逐句拆解
  • excel如何快速把多个工作表合并到一个excel表excel如何快速把多个工作表合并到一个excel表 有这么一种情况,就是我们有很多张excel,而且excel表里面的公式基本一样,我们就想快速的把这些excel合并在一起,意思在...
  • PowerQuery合并多个工作簿到一张

    千次阅读 2021-03-30 13:41:11
    1.新建一个工作簿,执行“数据”-“新建查询”-“获取数据”-“自文件”-“从文件夹...5.确定后返回编辑器,可以看到在查询结果的右侧了一列“自定义”。要汇总的工作簿数据都在这自定义列中。 6.单击自定义列右边
  • 在网上找EXCEL文件合并的方法,思路: 一、Linux 或者window+cmder,直接用命令行cat合并EXCEL文件,但是,需要安装辅助东西才能直接处理(也许也不可以,但是,可以用文件格式转换工具转换是可行的,把EXCEL文件...
  • 其实合并同一目录下的多个Excel文件,理论上用VBA是最好的,因为可以在复制粘贴的时候连格式一起,用python不好的地方就在于要把格式一起复制过去是很困难的。 当然如果对格式没什么太高的要求,那么使用xlwings合并...
  • 几天不研究学习Excel感觉心里总是空空的,所以今日在解答朋友如何快速定位到第一个工作表的快捷键的时候发现到了微软没有支持直接快捷键切换到第一个工作表,但是经过长时间的思索,我发明了长按Ctrl+Page的方法,受...
  • 1.首先新建数据库表格 use testA; create table userC(  id int primary key,  name varchar(50),  age int ) go insert into userC values(10001,'张三',20); insert into userC values(10002,'李四',25); ...
  • 一条sql查询多个表的统计数据

    万次阅读 2019-05-05 16:19:39
    需求:每省份单独有一张,每个表统计“待提交”、“待审核"、"已通过"和”总条数“信息。一条sql解决,不用传统方式循环查询上百次,从而提高查询效率和减轻数据库压力。 dao-impl: @Override public ...
  • 在工作中,我们经常遇到工作表合并到一张工作表的问题,比如希望将图1所示中各分表中保存的成绩记录,汇总到工作簿中的"成绩表"工作表中,可以用图2下面的程序。 图1 七(3)班工作表中的成绩记录 图2汇总...
  • 本篇经验贴子中,我将向大家分享如何利用函数将一个Excel工作簿中的多个工作表拆分成为单独的工作簿文件。步骤亦不负责,具体请参看内容。希望对你有所帮助! 工具/原料 microsoft office excel 2007 ...
  • 1 select方法 1.1Range.Select 方法 (选择对象。) 应用于Shape 和 ShapeRange对象的 Select方法。 选定指定的对象。...该表达式返回以上一对象。 表达式 一代表 Range 对象的变量。 Replace V...
  • WPS表格实现跨工作表数据引用的教程一、现在每班5名同学也已抽出,如图:WPS表格实现跨工作表数据引用的教程图1现在要的,就是要在《成绩抽查》工作表里面,引用《三年1班》、《三年2班》、《三年3班》3张工作表中...
  • jQuery 动态生成多个表格

    千次阅读 2017-04-21 15:30:08
    height: 400px;overflow-y: scroll;padding-top: 0px;"></div>var errList = data.errList //后台返回的数据,2维数组 //获取放表格的div var div = $("#di");...//每次循环生成一个表格 for (var errnum
  • layui表格一个单元格放多个数据

    千次阅读 2019-07-07 17:12:46
    先上数据库 销售订单: 商品: 销售订单明细: 销售订单明细中是1对多的关系 一个销售订单对多个商品 如果按常规的查询方法把数据返回到...把查出来的商品名称以一个表格的形式返回 在视图这边用一个...
  • Excel用Power Query把文件夹下所有文件合并为一个与合并多个表格 在 Excel Power Query 未出来之前,把文件夹下所有文件合并为一个与合并同一工作表中的多个工作表,需要用 VBA 实现,比较麻烦。有了 Power ...
  • 有个Excel,里面有多个sheet,现在需要把每个sheet中固定单元格的数据提取出来 例如我的这个表格,每个月都有一个这样的表格,然后一共12个sheet存放了12个月的数据,现在我把每个sheet的C5单元格数据提取出来 ...
  • 需求:多个tab页包含不同的表格数据,并且带分页,页面首次加载时需要显示第一页数据,并且在tab顶上显示总量,如下图所示: 各个表格数据从es中查询,涉及到计算,此处可以让前端调用多个接口来组装数据,但考虑...
  • excel 将一个sheet分割成多个sheet,并生成目录
  • vue+element-ui table表格 一行展示数组里面的多个数据 直接上代码 <el-table-column prop="address" label="地址"></el-table-column> <el-table-column label="关联门店" width="240" align=...
  • 实现一个sheet页拆分成多个sheet页: 1、如上图sheet,首先把sheet页的表名修改为数据源 2、找到excel中 开发工具 > VB > 插入 > 模块 3、在白色空白处把以下代码复制进去,注意产出的sheet页名称...
  • Excel 多条件 比对 查询 多个 重复值

    千次阅读 2019-12-03 20:52:49
    说明:多条件比对查找多个值,且可查找重复值(支持最多4个条件比对,同时查找3个值) 重复值得查找,可以将查到的所有重复值,依次填写在sheet1的重复的项目中,sheet1中重复项数多于sheet2的部分会空出来,避免了...
  • 给定一Excel表格中的列名称,返回其相应的列序号。 例如, A -&gt; 1 B -&gt; 2 C -&gt; 3 ... Z -&gt; 26 AA -&gt; 27 AB -&gt; 28 ... 示例 1: 输入: "A" ...
  • 在平时工作中,为 了能快速打开需要的工作表,我们通过会设置目录目录的设置方法有很种,但大多数人使用的方法还基本是手动插入超链接的操作。虽然这方法也行,但是将大大降低你的工作效率。那么今天,我们将...
  • excel表格之间的核对,是每个excel用户都要面对的工作难题,...例:如下图所示有两个表格要对比,一个是库存,一个是财务软件导出的。要求对比这两个同一物品的库存数量是否一致,显示在sheet3表格。库存:...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,007,625
精华内容 403,050
关键字:

多个表格如何做目录返回