麻辣家族討論版版 » Excel程式區 » for -step- next雙變數回圈怎麼寫

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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)
有何不同??

990830-2.rar (5.27 KB)

樓主熱帖

收藏

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 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

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-8-30 19:06 | 只看該作者

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

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2010-8-30 19:26 | 只看該作者

回復 3# oobird

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

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2010-8-30 20:08 | 只看該作者

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

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

990830-3.rar (4.83 KB)

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-8-30 23:45 | 只看該作者

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

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2010-8-31 07:23 | 只看該作者

回復 6# oobird

感謝oobir大大指導~~~~

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題