| |
▼ゆい さん：
こんばんは。
>1.Sheets("sheet1").Select
>2.Cells(5, 1).Copy
>3.Sheets("sheet2").Select
>4.Cells(6, 1).PasteSpecial Paste:=7
>
>このような処理で、
>2.の行番号を+3ずつ
>4.の行番号を+2ずつ
>進めて繰り返し処理を行いたいのですが、
>For Nextを使ったステートメントで試したところ、
>うまくいきませんでした。
まず、どのようなコードで試したのか必ず、見せてください。
（コードを見せていただくと、何を理解されていないのだなあ
と、見当が付く場合がありますから・・・）。
Ｎ 0 1 2 3 4 5
Ｓｈｅｅｔ１ 5 8 11 14 17 20
Ｓｈｅｅｔ２ 6 8 10 12 14 16
上記の表が理解できますか？
Sheet1は、コピー元の行位置を表しています
Sheet2は、コピー先の行位置を表しています。
Sheet1は、初項5 項差3
Sheet2は、初項6 項差2 の等差数列です。
これをコードにすると
Sub test()
Dim N As Long
For N = 0 To 5
Sheets("sheet1").Cells(5 + N * 3, 1).Copy
Sheets("sheet2").Cells(6 + N * 2, 1).PasteSpecial _
Paste:=xlPasteAllExceptBorders
Next
Application.CutCopyMode = False
End Sub
|
|
ichinose
- 07/1/29(月) 17:44 -
