Excel VBA質問箱 IV

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

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


61811 / 76732 ←次へ | 前へ→

【19534】Re:sheet1に貼り付けたデータの分解について
お礼  やす  - 04/11/7(日) 14:47 -

引用なし
パスワード
   ちゃっぴさん 

大変有難うございます。
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枚変わるたびに、行は何行移動しますか?


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

【19487】sheet1に貼り付けたデータの分解について やす 04/11/4(木) 23:25 質問
【19488】Re:sheet1に貼り付けたデータの分解について ちゃっぴ 04/11/4(木) 23:35 回答
【19514】Re:sheet1に貼り付けたデータの分解について やす 04/11/5(金) 22:56 お礼
【19515】Re:sheet1に貼り付けたデータの分解について ちゃっぴ 04/11/5(金) 23:35 回答
【19534】Re:sheet1に貼り付けたデータの分解について やす 04/11/7(日) 14:47 お礼
【19537】Re:sheet1に貼り付けたデータの分解について ちゃっぴ 04/11/7(日) 16:44 回答

61811 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free