Sub CalculateMarkedCellsTotal()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim total As Double
    
    ' 设置要操作的工作表（这里使用活动工作表）
    Set ws = ActiveSheet
    
    ' 初始化总计
    total = 0
    
    ' 遍历工作表中所有带有"Total"标记的单元格
    For Each cell In ws.UsedRange
        If cell.Value = "Total" Then
            ' 获取标记单元格右侧的数值
            If IsNumeric(cell.Offset(0, 1).Value) Then
                total = total + cell.Offset(0, 1).Value
            End If
        End If
    Next cell
    
    ' 显示总计
    MsgBox "所有标记单元格的总计为: " & total, vbInformation, "计算结果"
    
    ' 可选：将总计写入特定单元格
    ' ws.Range("A1").Value = total
End Sub

' 通过单元格颜色标记（例如黄色填充）
For Each cell In ws.UsedRange
    If cell.Interior.Color = RGB(255, 255, 0) Then ' 黄色
        If IsNumeric(cell.Value) Then
            total = total + cell.Value
        End If
    End If
Next cell

' 汇总标记行右侧的多个单元格
If cell.Value = "Total" Then
    For i = 1 To 3 ' 右侧3列
        If IsNumeric(cell.Offset(0, i).Value) Then
            total = total + cell.Offset(0, i).Value
        End If
    Next i
End If

' 只汇总大于特定值的标记单元格
If cell.Value = "Total" Then
    If IsNumeric(cell.Offset(0, 1).Value) And cell.Offset(0, 1).Value > 100 Then
        total = total + cell.Offset(0, 1).Value
    End If
End If