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

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。