|
ちゃっぴさん
大変有難うございます。
VBAの本を買い考えてみました。
見て頂きたく思います。
シートが1枚変わるたびに行は30行移動します。
30行ずつ移動してシートに貼り付けしてコピーを繰り返したいのですが
繰り返す部分の式をどのように表現したらよいのでしょうか?
よろしくお願い致します。
Sub Macro2()
'
' Macro2 Macro
Range("A1:A30").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SmallScroll Down:=10
Range("A31:A60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Sub 繰り返し処理()
Dim i As Integer
For i = 1 To 25 Step 30
Next i
End Sub
▼ちゃっぴ さん:
>>ただ、For 〜 Nextステートメントで Step 50
>>でぶん回してやるの意味がよく分からなかったのですが、
>>これは
>>1. 新しいシートを作成
>>2. 50行を選択し、新規シートに貼り付け
>>を50回マクロ記録で行うということなのでしょうか?
>
>そういう時は、まずはヘルプを確認しましょう。
>(これをやらない人はいつまでたっても進歩しません。)
>
>なお、Step50でなくてもできますよ。
>50行毎に別シートにコピーとのことなので、
>
>シートが1枚変わるたびに、行は何行移動しますか?
>これが、わかればあとは簡単にできると思います。
>変数(ループカウンタ)を使用してループするだけなので・・・
|
|