返回列表 上一主題 發帖

[發問] 特定值迴圈寫法

mash071896

帖子
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)處理跳欄的問題
  1.     For i = 0 To 14
  2.    
  3.         Cells(1 + Int(i / 3), 1 + (i Mod 3)) = .Cells(1 + i, 1).Value

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

活頁簿1.rar (15.81 KB)

收藏 分享

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
6#
發表於 2021-1-15 13:45 | 只看該作者
註解
  1. Sub zz()
  2. Dim c, n&   '定義c、n變數為long(常整數)
  3. c = Array(0, 1, 2)   'c 等於陣列(0,1,2)當作跳欄變數
  4. For i = 1 To 15 Step UBound(c) + 1   '迴圈1到15，以3為間隔(Ubound(c)=2)
  5.     n = n + 1          '內插變數n(列的變數)，j為array裡的0,1,2
  6.     For Each j In c  'n初始值0會帶出1，並迴圈0,1,2
  7.         Cells(n, j + 1) = i + j   '帶出cells(1,1)=1、cells(1,2)=2、cells(1,3)=3
  8.     Next '循環n會再+1，讓cells跳下一列
  9. Next
  10. End Sub
複製代碼

TOP

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
5#
發表於 2021-1-15 11:49 | 只看該作者
回復 3# ikboy
感謝大大!是array沒錯!

TOP

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
4#
發表於 2021-1-15 11:49 | 只看該作者
回復 2# hcm19522
感謝大大!學到了

TOP

ikboy

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

2016猴年全勤獎章
3#
發表於 2021-1-15 11:34 | 只看該作者
  1. Sub zz()
  2. Dim c, n&
  3. c = Array(0, 1, 2)
  4. For i = 1 To 15 Step UBound(c) + 1
  5.     n = n + 1
  6.     For Each j In c
  7.         Cells(n, j + 1) = i + j
  8.     Next
  9. Next
  10. End Sub
複製代碼

TOP

hcm19522

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

熱烈參與勳章
2#
發表於 2021-1-15 10:02 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589560731
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題