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

For Next迴圈問題請益

child

中學生 Rank: 2

帖子: 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)，以此類推。
請教如何改寫程式碼? 很謝謝大家的幫忙。