[VBA ] 一個迴圈兩個數列

看板Visual_Basic作者 (momo)時間15年前 (2010/04/12 17:51), 編輯推噓3(3推 0噓 6→)
留言9則, 4人參與, 最新討論串1/1
各位高手不好意思 小弟我是新手 可以請教一下嗎 Sub Macro5() For i = 2 To 100 For j = 2 To 100 Step 10 Range(Cells(j, 2), Cells(j + 9, 2)).Select Selection.Copy Cells(i, 5).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Next j Next i End Sub 以上是我的程式碼 目前無法同時執行(會變成執行j在執行i) 我想要在同一個迴圈同時有兩個數列 像是 i=2時 j=2下去做一次迴圈 i=3 j=12 i=4 j=22 可以指教一下嗎 謝謝喔 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.243.66
推
04/12 20:20, , 1F
是我的錯覺嗎？下午好像也有個類似的問題，怎麼推完不見了
04/12 20:20, 1F
→
04/12 23:05, , 2F
喔不好意思 因為下午那篇表達不清楚 我就刪了 拍謝
04/12 23:05, 2F
推
04/13 03:08, , 3F
如果將外圍迴圈拿掉，將j迴圈next 前面寫入i=i+1
04/13 03:08, 3F
→
04/13 03:08, , 4F
並在for j= 的前面一行寫入 i=1 這樣是不是符合大大
04/13 03:08, 4F
→
04/13 03:09, , 5F
的要求了?
04/13 03:09, 5F
推
04/13 09:03, , 6F
把 i 和 j 的關係寫出來就行了，迴圈用誰來跑都可以
04/13 09:03, 6F
→
04/13 09:03, , 7F
只是你上次的 j 間隔12，這次變成間隔10了？
04/13 09:03, 7F
→
04/13 10:59, , 8F
去除j迴圈，改用在i迴圈最後再j=j+10,不知道這樣是不是你要
04/13 10:59, 8F
→
04/13 20:51, , 9F
問題解決了 謝謝各位^^~ 感恩喔
04/13 20:51, 9F
‣ 更多 kenny9992 的文章
文章代碼(AID): #1BmkqTVX (Visual_Basic)