標題: [發問] 儲存格往下累加1格 [打印本頁]

---

作者: chiang0320    時間: 2017-9-29 23:45     標題: 儲存格往下累加1格

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    時間: 2017-9-30 02:11

回復 1# chiang0320

Public Sub 往下累加1()

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)