儲存格往下累加1格 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 儲存格往下累加1格

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

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

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

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

靜思自在 : 不要隨心所欲，要隨心教育自己。

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