新手请教一个问题 想了好几个月了 都想不明白！

Sub test()
Dim arr() As String
Dim i As Integer
For Each st In Sheets
If st.Name = "sheet & i + 1 " Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = st.Name & "!A1"
End If
Next st
Sheets("汇总表").Range("A1").Formula = "=" & Join(arr, "+")
End Sub

特定名称含有"sheet"& i 的的表求和 要求带公式

将判定那句 用 If sht.Name <> "汇总表" And InStr(sht.Name, "Sheet") 这个就可以了