[發問] 儲存格往下累加1格

chiang0320

ActiveCell.Offset(1, 0).Activate  這是儲存格往下累加1格
但是如果有設定起點從 Range("I4").Select 開始
另外會有For Next的迴圈
會一直停留在Range("I5").Select
請問以下程式要怎麼修改，才不會一直停留在"I5"，會持續一直累加1往下     ，謝謝協助!
-----------------------------------------------------------
Public Sub 往下累加1()

    Range("I4").Select
    ActiveCell.Offset(1, 0).Activate
End Sub
-----------------------------------------------------------

starry1314

回復 1# chiang0320

Public Sub 往下累加1()

    Range("I4").Select
    For i = 1 To 100
    ActiveCell.Offset(i - ActiveCell.Row + 3, 0).Activate
    Next
End Sub