多工作簿，选择性汇总数据，求助

strongmemory

每个工作簿内工作表格式一样，数据不同，类似月度销售明细，想通过VBA代码根据需要快速调出目标数据并生成新工作簿。
求帮助，比如快速将1-4月轻型自卸车销售明细汇总到新工作簿
月度表格样式如下：（数据条数非常多）

年	月	分类	车型	销量
18	1	轻	自卸	10
18	1	中	载货	1
1。。	。。	。。	。。。	。。。

共有1-4月4个工作簿

不知道为什么

没有附件，空谈误时

再说类似的贴子论坛一搜都一大把

strongmemory

不知道为什么 发表于 2019-2-28 14:21
没有附件，空谈误时

再说类似的贴子论坛一搜都一大把

很多仅是汇总，想选择性汇总 奈何VBA不熟悉

strongmemory

忘记附件了

417744370

strongmemory 发表于 2019-2-28 14:27
忘记附件了

Sub 多文件合并()
Dim str()
Dim i As Integer
Dim wb, wb1 As Workbook
Dim sht As Worksheet

On Error Resume Next
Set wb1 = ActiveWorkbook
Set sht1 = ActiveSheet
On Error Resume Next
str = Application.GetOpenFilename("Excel数据文件,*.xls*", , , , True)
    For i = LBound(str) To UBound(str)
        Set wb = Workbooks.Open(str(i))
        For Each sht In wb.Sheets
            sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)
            wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
        Next
        wb.Close
    Next
End Sub
试试这个是你想要的吗？

刀羊

strongmemory 发表于 2019-2-28 14:23
很多仅是汇总，想选择性汇总 奈何VBA不熟悉

这里不需要VBA，上载前加一步筛选即可：

不用VBA，不用SQL语句，且看 POWER QUERY 快速合并多个Excel工作簿
http://club.excelhome.net/thread-1190917-1-1.html

PowerQuery 快速合并父文件夹下全部工作簿
http://club.excelhome.net/thread-1252574-1-1.html