帖子: 38
主題: 20
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-10
最後登錄: 2019-2-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-3-18 21:35 | 只看該作者

For Next迴圈問題請益

X = Sheets("AA").Range("IV3").End(xlToLeft).Column
For j = 9 To X Step 4
Worksheets("AA").Cells(8, j).Copy
Worksheets("BB").Cells(i, 1).PasteSpecial Paste:=xlPasteValues
Next

若想將AA工作表的迴圈內儲存格值，依序複製貼到BB工作表A欄從A2開始。
Ex:Worksheets("AA").Cells(8, 9) = Worksheets("BB").Cells(1, 1)的值，Worksheets("AA").Cells(8, 12) = Worksheets("BB").Cells(2, 1)，以此類推。
請教如何改寫程式碼? 很謝謝大家的幫忙。

樓主熱帖

小孩

child

中學生 Rank: 2

帖子: 38
主題: 20
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-10
最後登錄: 2019-2-15

2^#

發表於 2011-3-18 22:02 | 只看該作者

Dear donald大大:
如果要讓i的值從儲存格A2開始往下，不知如何修改?很謝謝你的幫忙喔!

小孩

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-3-18 22:25 | 只看該作者

回復 1# child
另一解法

Sub Ex()
Dim x As Integer, Rng As Range, j As Integer
x = Sheets("AA").Range("IV3").End(xlToLeft).Column
Set Rng = Worksheets("BB").Cells(2, 1)
For j = 9 To x Step 4
Worksheets("AA").Cells(8, j).Copy
Rng.PasteSpecial Paste:=xlPasteValues
Set Rng = Rng.Offset(1)
Next
End Sub

複製代碼

TOP

child

中學生 Rank: 2

帖子: 38
主題: 20
精華: 0
積分: 83
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: TAIWAN
註冊時間: 2010-5-10
最後登錄: 2019-2-15

4^#

發表於 2011-3-18 22:50 | 只看該作者

謝謝donald和GBKEE版主的幫忙，感激不盡!

小孩

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-3-19 06:22 | 只看該作者

回復 6# child
還有一解

Sub Ex()
Dim x As Integer, j As Integer
x = Sheets("AA").Range("IV3").End(xlToLeft).Column
For j = 9 To x Step 4
Worksheets("AA").Cells(8, j).Copy
Worksheets("BB").Cells((j - 9) / 4 + 2, 1).PasteSpecial Paste:=xlPasteValues
Next
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-3-19 09:29 | 只看該作者

回復 10# donald

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-3-19 10:27 | 只看該作者

本帖最後由 Hsieh 於 2011-3-19 10:29 編輯

回復 12# donald

很好，這都是可以解決問題的好方法
不論黑貓或白貓，能抓老鼠就是好貓
論場就是需要這樣的討論，方法不只一個
多學一個技巧，就是多一份增長

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-3-19 12:15 | 只看該作者