excel - 不同工作表(同一单元格)中的值求和

Question

我有一个包含多张工作表的工作簿，每个项目的工作表数量可能会发生变化，但它们都以 PAF 结尾。该表在所有工作表以及单元格中都是相同的。

我有一个带有完全相同表格的摘要选项卡，我只需要在那里总结所有内容，该表格至少有 6 列和 20 行，因此每个单元格(基本上)需要相同的公式，所以我想出了以下但我收到错误。有什么建议吗？

Sub SumPAF
Dim ws as Worksheet
Sheets("Summary PAF").Activate

For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "PAF" Then

Range("E10") = WorksheetFunction.Sum(Range("E10"))

End If
Next
End Sub

它陷入“For Each”状态，表示需要一个对象...

Answer 1

我已经对代码进行了注释，因此您应该不会在理解它时遇到问题。

Option Explicit

Sub SumPAF()
    Dim ws As Worksheet
    
    '~~> This will store the cell addresses
    Dim sumFormula As String
    
    '~~> Loop though each worksheet and check if it ends with PAF
    '~~> and also to ingore summary worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If UCase(ws.Name) Like "*PAF" And _
        InStr(1, ws.Name, "Summary", vbTextCompare) = 0 Then _
        sumFormula = sumFormula & "," & "'" & ws.Name & "'!E10"
        '~~> or simply 
        'sumFormula = sumFormula & ",'" & ws.Name & "'!E10"
    Next
    
    '~~> Remove the intital ","
    sumFormula = Mid(sumFormula, 2)
    
    '~~> Insert the sum formula
    If sumFormula <> "" Then _
    Sheets("Summary PAF").Range("E10").Formula = "=SUM(" & sumFormula & ")"
End Sub