返回列表 上一主題 發帖

[發問] 特定值迴圈寫法

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 
2#
發表於 2021-1-15 11:49 | 顯示全部帖子
回復 2# hcm19522
感謝大大!學到了

TOP

mash071896

帖子
11 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
win10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2020-2-14 
最後登錄
2021-5-3 
3#
發表於 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 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

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題