for -step- next雙變數回圈怎麼寫

oak0723-1

如附件
想把工作表1裡的內容顯示於工作表2
如何利用for-step-next寫出來呢?
以下是小弟寫的
但只能有1個變數回圈
可以幫小弟指正嗎?
for  i=2 to 11 step 1
  for j=4 to 22 step 2
worksheets("1").cells(i,2).value=worksheets("2").cells(j,4)
next j
next i
另請問
worksheets("1").cells(i,2).value=worksheets("2").cells(j,4)
與
worksheets("1").cells(i,2)=worksheets("2").cells(j,4)
有何不同??

jackdream

想把工作表1裡的內容顯示於工作表2
如何利用for-step-next寫出來呢?
但只能有1個變數回圈
oak0723-1 發表於 2010-8-30 14:25

1. Sub test()
   
2.     For i = 2 To 11 Step 1  '後面的 Step 1 可省略,改為 For i = 2 To 11 即可
   
3.         Worksheets("2").Cells(i * 2, 4) = Worksheets("1").Cells(i, 2).Value
   
4.     Next i
   
5. End Sub

複製代碼

oobird

a = Join(Application.Transpose([b2:b11]), "  ")
Sheet2.[c4].Resize(19, 1) = Application.Transpose(Split(a))

oak0723-1

回復 3# oobird


    感恩~~~~謝謝指導~~

oak0723-1

對不起
小弟資質愚昧
比較看的懂jackdream 大大寫的程式碼
oobird 大大對不起~~你寫的小弟看不懂~~~
但是小弟還有一個疑慮
若無法寫成如jackdream的等式
如附件而非用2個變數不可時
要如何寫

oobird

i = 4
For Each c In Sheet1.[d10:d14]
Sheet2.Cells(i, 4) = c
i = i + 5
Next

oak0723-1

回復 6# oobird


    感謝oobir大大指導~~~~