选定单元格之和VBA

nnsea

Sub SumNumbers()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double

    ' 获取选定的单元格范围
    Set rng = Selection

    ' 遍历选定的每个单元格，并将数字相加
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            sum = sum + cell.Value
        End If
    Next cell

    ' 显示总和
    MsgBox "总和: " & sum
End Sub