求助如何将多个工作薄统计在一张表格上

在汇总表中单击 数据>获取外部数据>来自文件>从excel工作簿>选中它自己>导入>选中汇总表>转换数据>高级编辑器>粘贴下面内容并修改文件路径为你的文件路径
let
源 = Excel.Workbook(File.Contents("D:\test\示例.xlsx"), true, true),
筛选 = Table.SelectRows(源, each ([Kind] = "Sheet") and ([Name] <> "汇总")),
展开 = Table.ExpandTableColumn(Table.SelectColumns(筛选,{"Data"}), "Data", {"项目名称", "项目进度", "项目地址"})
in
展开
关闭并上载至当前工作表A1
当有新的项目sheet增加后,保存文件后右击汇总表刷新即可.

Option Explicit
Sub abc()
　Dim i, j, m, a, d, key
　Set d = CreateObject("scripting.dictionary")
　For Each i In Sheets: d(i.Name) = 1: Next
　If Not d.exists("汇总") Then MsgBox "!": Exit Sub '无汇总表
　ReDim b(1 To 10 ^ 4, 1 To 3)
　For Each key In d.keys
　　If InStr(key, "项目") = 1 Then
　　　a = Sheets(key).[a1].CurrentRegion.Resize(, 3).Value '取3列
　　　For i = 2 To UBound(a) '第一行为标题行
　　　　m = m + 1
　　　　For j = 1 To UBound(a, 2)
　　　　　b(m, j) = a(i, j)
　　　　Next
　　　Next
　　End If
　Next
　Sheets("汇总").[a2].Resize(m, 3) = b
End Sub