首页 › 实战技术 › 选定单元格之和VBA

nnsea 发表于 2023-9-22 09:40:36

选定单元格之和VBA

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

查看完整版本: 选定单元格之和VBA