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

靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。