返回列表 上一主題 發帖

[發問] 特定值迴圈寫法

[發問] 特定值迴圈寫法

各位大大好
想請教迴圈寫法,
要把工作表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

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

活頁簿1.rar (15.81 KB)

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog[img][/img]
已收集7000篇 EXCEL函數

TOP

  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

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

TOP

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

TOP

註解
  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

        靜思自在 : 愛不是要求對方,而是要由自身的付出。
返回列表 上一主題