特定值迴圈寫法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 特定值迴圈寫法

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

[發問] 特定值迴圈寫法

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2021-1-15 11:34 | 顯示全部帖子

Sub zz()
Dim c, n&
c = Array(0, 1, 2)
For i = 1 To 15 Step UBound(c) + 1
n = n + 1
For Each j In c
Cells(n, j + 1) = i + j
Next
Next
End Sub

複製代碼

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

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