多个工作簿指定单元格汇总一个工作簿中

jacking03

各位大神，要从多个工作簿（csv格式）中指定单元格汇总到一个excel工作簿中，如何实现呢？

kaixinbuy

参考这里： https://club.excelhome.net/threa ... tml?_dsign=17caa5e7




需要的字段：
抽取label单的右边或者下方单元格的值








如果你的表格和sheet是比较规范表头和样式，这种情况请忽略我，你可以直接使用PowerQuery或者vba方案。
如果你的表格数据不是规范的数据，整合和汇总遇到困难的，请继续。


我们设计开发了一套算法和模型系统TableMerge.com，可视化快速抽取、合并、汇总 成百上千个非规范化的、格式不一致的Excel表格，可以终结论坛中绝大部分大家遇到的不规范表格汇总、表格抽取问题，无需写代码。


有这方面的需求的同学，
如果你的数据是可以公开发布的，请把数据发给我(weixin: lisp2025 )我免费为你提供Excel表格抽取、表格合并、表格汇总、数据整合服务。
如果你的数据不方便外传只能在本地处理的（比如财务，工资等公司保密数据），这时候不介意用一下我们的产品吧在你自己电脑上本地一键免安装运行。(产品是收费的,反正花的是公司的钱)（产品可免费的：学生，中小学校教师：免费，公益组织：免费，其他能够尽可能免费的：免费），请去tablemerge.com下载。


免费处理10万个表格，10万个表格处理的数据和结果都会记录在这里。


下面一张图描述了我们是如何终结不规范的Excel表格抽取整合汇总问题的。

[size=0.83em]2023-05-10 16-47-09屏幕截图.png (669.21 KB, 下载次数: 0)
下载附件  [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2023-5-10 16:48 上传

  图片出处：https://tablemerge.com/docs/introduce_to_tablemerge/

liulang0808

Sub 按钮1_Click()

    Set fso = CreateObject("scripting.filesystemobject")
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    sh.UsedRange.Offset(2).ClearContents
    x = fso.getfolder(ThisWorkbook.Path).Files.Count
    arr = sh.[a1].Resize(x + 2, 4)
    r = 2
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If fso.getextensionname(f) = "csv" Then
            r = r + 1
            arr(r, 1) = r - 2
            With Workbooks.Open(f)
                arr(r, 2) = "'" & fso.getbasename(f)
                arr(r, 3) = ActiveSheet.[b3]
                arr(r, 4) = ActiveSheet.[c7]
                .Close
            End With
        End If
    Next f
    sh.[a1].Resize(r, UBound(arr, 2)) = arr
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

liulang0808

多文件汇总.zip (25.85 KB, 下载次数: 13)

2023-5-13 21:02 上传

点击文件名下载附件

供参考

gwjkkkkk

参与一下。。。

jacking03

感谢大神帮助