Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61817 / 76738

←次へ　｜　前へ→


	【19534】Re:sheet1に貼り付けたデータの分解について

やす - 04/11/7(日) 14:47 -


	引用なし

	パスワード

ちゃっぴさん　

大変有難うございます。
ＶＢＡの本を買い考えてみました。
見て頂きたく思います。

シートが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枚変わるたびに、行は何行移動しますか？

>これが、わかればあとは簡単にできると思います。
>変数(ループカウンタ)を使用してループするだけなので･･･

0 hits

▼

【19487】sheet1に貼り付けたデータの分解について やす 04/11/4(木) 23:25