[VBA]指定列求和

##指定列求和

需求：

求和：列為“銷售金額”的數值

Sub 求和()
Dim i As Integer, j As Integer
For i = 3 To 56
For j = 15 To 81 Step 2
Cells(i, 13) = Cells(i, 13) + Cells(i, j)
Next j
Next i

End Sub

 中間有一段無法調試的代碼，

Sub 求和()
Dim i As Integer, j As Integer
For i = 3 To range("a65536").end(xlup).row step 1
For j = 15 To range("a1").end(xltoright).column Step 2
Cells(i, 13) = Cells(i, 13) + Cells(i, j)
Next j
Next i

End Sub

標黃的代碼沒有報錯，但是無法運行處結果，改成上面的代碼中的56 和81 之后，代碼就可正常運行。

 

結果：