返回列表下一主題上一主題發帖

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

chiang0320

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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
-----------------------------------------------------------