Sub SumValues()
    Dim total As Double
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> "總表" Then ' 排除名稱為 "總表" 的工作表
            Dim lastRow As Long
            lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
            Dim i As Long
            For i = 1 To lastRow
                If ws.Cells(i, "C").Value = "合計" Then
                    total = total + ws.Cells(i, "D").Value + ws.Cells(i, "E").Value
                End If
            Next i
        End If
    Next ws
    Worksheets("總表").Range("E45").Value = total ' 將總和值回傳到總表的 E43 欄位
End Sub