Board logo

標題: 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
另一解法
  1. Sub Ex()
  2.     Dim x As Integer, Rng As Range, j As Integer
  3.     x = Sheets("AA").Range("IV3").End(xlToLeft).Column
  4.     Set Rng = Worksheets("BB").Cells(2, 1)
  5.     For j = 9 To x Step 4
  6.         Worksheets("AA").Cells(8, j).Copy
  7.         Rng.PasteSpecial Paste:=xlPasteValues
  8.         Set Rng = Rng.Offset(1)
  9.     Next
  10. End Sub
複製代碼

作者: child    時間: 2011-3-18 22:50

謝謝donald和GBKEE版主的幫忙,感激不盡!
作者: GBKEE    時間: 2011-3-19 06:22

回復 6# child
還有一解
   
  1. Sub Ex()
  2.     Dim x As Integer, j As Integer
  3.     x = Sheets("AA").Range("IV3").End(xlToLeft).Column
  4.     For j = 9 To x Step 4
  5.       Worksheets("AA").Cells(8, j).Copy
  6.       Worksheets("BB").Cells((j - 9) / 4 + 2, 1).PasteSpecial Paste:=xlPasteValues
  7.     Next
  8. 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/)