怎么把多个分表我需要的数据汇总到一起呀

=REDUCE(张三!A1:C1,TOCOL(DROP(SHEETSNAME(),,1)),LAMBDA(x,y,VSTACK(x,FILTER(INDIRECT(y&"!a2:c100"),MONTH(INDIRECT(y&"!a2:a100"))=8))))
因为你给的是个模板，所以我提供的函数也是通用型，部分内容需要根据你的实际文本替换下。

=IFNA(REDUCE(张三!A1:C1,TOCOL(DROP(SHEETSNAME(),,1)),LAMBDA(x,y,VSTACK(x,FILTER(INDIRECT(y&"!a2:c100"),MONTH(INDIRECT(y&"!a2:a100"))=8,y)))),0)
我的极限了，某一页无数据，就显示 sheet 名和0。但这行数据没办法去掉。

Sub sqllll()
Dim sql, rst, cnn, i, r
Set cnn = CreateObject("adodb.connection")
ReDim arr(1 To Sheets. Count - 1)
r = 1
cnn. Open "dsn=excel files;dbq=" & ThisWorkbook. FullName
For Each i In Worksheets
If i. Name <> "汇总" Then
arr(r) = "[" & i. Name & "$" & "]"
r = r + 1
End If
Next
With ThisWorkbook.Sheets("汇总")
r = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To UBound(arr, 1)
sql = "select * from " & arr(i)
Set rst = cnn.Execute(sql)
.Cells(r, 1) = "第" & i & "张表的数据"
r = r + 1
.Cells(r, 1).CopyFromRecordset rst
r = .Cells(Rows.Count, 1).End(xlUp).Row
Set rst = Nothing
Next
End With
End Sub