麻辣家族討論版版 - Powered by Discuz! Board

標題: for -step- next雙變數回圈怎麼寫 [打印本頁]

作者: oak0723-1 時間: 2010-8-30 14:25 標題: for -step- next雙變數回圈怎麼寫

如附件
想把工作表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 時間: 2010-8-30 18:12

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

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

複製代碼

作者: oobird 時間: 2010-8-30 19:06

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

作者: oak0723-1 時間: 2010-8-30 19:26

回復 3# oobird

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

作者: oak0723-1 時間: 2010-8-30 20:08

本帖最後由 oak0723-1 於 2010-8-30 21:13 編輯

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

作者: oobird 時間: 2010-8-30 23:45

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

作者: oak0723-1 時間: 2010-8-31 07:23

回復 6# oobird

感謝oobir大大指導~~~~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)