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

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

[發問] 特定值迴圈寫法

中學生 Rank: 2

帖子: 11
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2020-2-14
最後登錄: 2021-5-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-1-15 08:50 | 只看該作者

[發問] 特定值迴圈寫法

各位大大好
想請教迴圈寫法，
要把工作表1的值(A欄)，
貼到工作表2的A~C欄並按照順序，
目前的寫法是用餘數方式(MOD)處理跳欄的問題

For i = 0 To 14
Cells(1 + Int(i / 3), 1 + (i Mod 3)) = .Cells(1 + i, 1).Value
Next

複製代碼

想請問是不是有再多一個迴圈寫法，
只重複三個值，如[0,1,2]陣列，
可以讓我帶入cells裡面執行跳欄的動作，
還請大大們指導，謝謝。

活頁簿1.rar (15.81 KB)

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

2^#

發表於 2021-1-15 10:02 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589560731

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

中學生 Rank: 2

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

2016猴年全勤獎章

3^#

發表於 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

複製代碼

中學生 Rank: 2

帖子: 11
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2020-2-14
最後登錄: 2021-5-3

4^#

發表於 2021-1-15 11:49 | 只看該作者

回復 2# hcm19522
感謝大大!學到了

中學生 Rank: 2

帖子: 11
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2020-2-14
最後登錄: 2021-5-3

5^#

發表於 2021-1-15 11:49 | 只看該作者

回復 3# ikboy
感謝大大!是array沒錯!

中學生 Rank: 2

帖子: 11
主題: 3
精華: 0
積分: 59
點名: 0
作業系統: win10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2020-2-14
最後登錄: 2021-5-3

6^#

發表於 2021-1-15 13:45 | 只看該作者

註解

Sub zz()
Dim c, n& '定義c、n變數為long(常整數)
c = Array(0, 1, 2) 'c 等於陣列(0,1,2)當作跳欄變數
For i = 1 To 15 Step UBound(c) + 1 '迴圈1到15，以3為間隔(Ubound(c)=2)
n = n + 1 '內插變數n(列的變數)，j為array裡的0,1,2
For Each j In c 'n初始值0會帶出1，並迴圈0,1,2
Cells(n, j + 1) = i + j '帶出cells(1,1)=1、cells(1,2)=2、cells(1,3)=3
Next '循環n會再+1，讓cells跳下一列
Next
End Sub

複製代碼

靜思自在 : 要比誰更受誰．不要比誰更怕誰。

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