標題:
For Next迴圈問題請益
[打印本頁]
作者:
child
時間:
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
時間:
2011-3-18 22:02
Dear donald大大:
如果要讓i的值從儲存格A2開始往下,不知如何修改?很謝謝你的幫忙喔!
作者:
GBKEE
時間:
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
複製代碼
作者:
child
時間:
2011-3-18 22:50
謝謝donald和GBKEE版主的幫忙,感激不盡!
作者:
GBKEE
時間:
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
複製代碼
作者:
Hsieh
時間:
2011-3-19 09:29
回復
10#
donald
[attach]5049[/attach]
作者:
Hsieh
時間:
2011-3-19 10:27
本帖最後由 Hsieh 於 2011-3-19 10:29 編輯
回復
12#
donald
很好,這都是可以解決問題的好方法
不論黑貓或白貓,能抓老鼠就是好貓
論場就是需要這樣的討論,方法不只一個
多學一個技巧,就是多一份增長
作者:
Hsieh
時間:
2011-3-19 12:15
本帖最後由 Hsieh 於 2011-3-19 13:45 編輯
回復
14#
donald
剛剛仔細看過妳的操作,最後一個步驟,你是如何向下填滿公式的?
我一直操作不出這樣的效果
可以說明一下操作方法嗎?
如果簡單公式都不用可試試如圖操作
[attach]5057[/attach]
作者:
GBKEE
時間:
2011-3-19 12:40
12樓 最後一個步驟 用滑鼠操作 , 向下填滿公式.
通常會是 選取A欄 滑鼠點入A1 按下 Ctrl+Enten
還有別的方式 願聞其詳
作者:
GBKEE
時間:
2011-3-19 14:08
本帖最後由 GBKEE 於 2011-3-19 14:09 編輯
數字等差做法,不用拉的
按下 Ctrl+Enten
[attach]5058[/attach]
作者:
GBKEE
時間:
2011-3-19 15:29
本帖最後由 GBKEE 於 2011-3-19 15:34 編輯
請看如何可以不寫公式
[attach]5061[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)