如何在电子表格一列数据分别正负数求和

来源:百度知道 编辑:UC知道 时间:2024/05/09 20:55:15

最简单的方法是按大小排序,不能排序的话就用宏。

提供一个简单的宏。

Sub ABC()
y = 1 '表示你要统计数值的那一列
For x = 1 To 65536
If Cells(x, y) > 0 Then
Cells(1, y + 1) = Cells(1, y + 1) + Cells(x, y)
ElseIf Cells(x, y) < 0 Then
Cells(2, y + 1) = Cells(2, y + 1) + Cells(x, y)
End If
Next
End Sub

记得运行时,在要统计数值的那一列后面添加一列空白列,用来存放计算结果。

表格表示正负数的方法