儲存格往下累加1格 - Excel程式區

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

　暱稱: 豪

1^# 跳轉到 »

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

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。