一排數字(有60組)自動由左自右加總絕對值，但遇到絕對值>6即停止，最好6可設成一個變數，自由選擇
https://docs.google.com/file/d/0B60elfiE7hqIZWNJVkp6UVVDTWM/edit?usp=sharing
VBA程式碼：
Sub test()
Dim i As Integer, j As Integer
Dim eod As Integer, num As Integer
Dim sum As Long
eod = InputBox("請輸入資料列數")
num = InputBox("請輸入最大之絕對值")
For i = 1 To eod
sum = 0
For j = 1 To 5
If Abs(Cells(i, j).Value) > num Then
Cells(i, 7) = sum
Exit For
Else
sum = sum + Abs(Cells(i, j).Value)
End If
Next j
Cells(i, 7) = sum
Next i
End Sub
說真的沒比寫公式快...但是看得懂的話比較清楚...
內文搜尋
從 APP 打開
X