选定单元格之和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
页:
[1]