For Next迴圈問題請益 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » For Next迴圈問題請益

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

For Next迴圈問題請益

超級版主 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兔年全勤獎章

1^# 跳轉到 »

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

複製代碼

超級版主 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兔年全勤獎章

2^#

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

複製代碼

超級版主 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-19 12:40 | 顯示全部帖子

12樓最後一個步驟用滑鼠操作 , 向下填滿公式.
通常會是選取A欄滑鼠點入A1 按下 Ctrl+Enten
還有別的方式願聞其詳

超級版主 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兔年全勤獎章

4^#

發表於 2011-3-19 14:08 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-3-19 14:09 編輯

數字等差做法,不用拉的
按下 Ctrl+Enten

超級版主 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 15:29 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-3-19 15:34 編輯

請看如何可以不寫公式

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

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