儲存格往下累加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

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。