
エクセル(VBA)マクロで1行おきに、別シートにコピーする方法。
2012/4/914:54:29
エクセル(VBA)マクロで1行おきに、別シートにコピーする方法。
以下のようにSheet1 に入力されているとします。
【Sheet1】
1 山田 太郎 TEL 住所 。。。。など
2 鈴木 花子
3 佐藤 真一
4 田中 武
5 後藤 正美
これを、以下のように1行おきに、Sheet2 と Sheet3
へ振り分けてコピーたいのですが、
【Sheet2】
1 山田 太郎 TEL 住所 。。。。など
2 佐藤 真一
3 後藤 正美
【Sheet3】
1 鈴木 花子 TEL 住所 。。。。など
2 田中 武
これが可能なVBAをご教示いただけないでしょうか?
なお、行数は上記では5行しか書いていませんが、
数千行ぐらいのシートになります。
どうぞ宜しくお願いいたします。
ベストアンサーに選ばれた回答
編集あり2012/4/916:21:44
私ならこんな感じにするかな。
Sub Sample1()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Sheet1")
For i = 1 To (.Cells(Rows.Count, 1).End(xlUp).Row + 1) \ 2
.Rows(i * 2 - 1).Copy Worksheets("Sheet2").Rows(i)
.Rows(i * 2).Copy Worksheets("Sheet3").Rows(i)
Next i
End With
Application.ScreenUpdating = True
End Sub
【追記】
書式を除いて値だけコピーできればよいなら、こちらが速いです。
Sub Sample2()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Sheet1")
For i = 1 To (.Cells(Rows.Count, 1).End(xlUp).Row + 1) \ 2
Worksheets("Sheet2").Rows(i).Value = .Rows(i * 2 - 1).Value
Worksheets("Sheet3").Rows(i).Value = .Rows(i * 2).Value
Next i
End With
Application.ScreenUpdating = True
End Sub
この質問は投票によってベストアンサーに選ばれました!
ベストアンサー以外の回答
1〜2件/2件中
- 並び替え:回答日時の
- 新しい順
- |古い順
2012/4/915:16:34
一例です。
コピー列は10列としています。
Sub sample()
Dim i As Long, st2cnt As Long, st3cnt As Long
Set st2 = Sheets("sheet2")
Set st3 = Sheets("sheet3")
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
With Cells(i, "A").Resize(1, 10)
If i Mod 2 Then
st2cnt = st2cnt + 1
st2.Cells(st2cnt, "A").Resize(1, 10) = .Value
Else
st3cnt = st3cnt + 1
st3.Cells(st3cnt, "A").Resize(1, 10) = .Value
End If
End With
Next
Application.ScreenUpdating = True
End Sub
2012/4/915:01:46
このカテゴリの回答受付中の質問
- Excel VBA シート保護とアウトライン(グループ化)操作を両立させたい 以下の...
- エクセルオンラインのテンプレートの使用方法 使いたいテンプレートがあるので...
- 実在気体のファンデルワールス方程式の等温線をエクセルで書きたいのですが、式の...
- googleスプレットシートでyahooファイナンスのデータを数千件読み込もうとしたら...
- Excel2013のMS Queryにてin句を使用し、複数の文字列を抽出対象としたいのですが...
- 貿易関係の仕事をしており本船のスケジュール等を 定期的にシッピングアクセスと...
- Excelのアドイン機能に関しての質問です。 使用しているOS、ソフト Windows 10 H...
- シェッフェの一対比較法を行いたい エクセルでシェッフェの一対比較法を行いたい...
- ICAD/SXで表題欄をExcelで記入して図面に反映させているんですが現在使用している...
- Excelで質問です。 A列からX列まで、行は何行が不特定のリストがあります。 E...
このカテゴリの投票受付中の質問
- Excelで、ルートの中に分数、またその分数の中に2条があるような計算がしたいので...
- VBAでShell関数を使って起動したアプリに引数を渡せるらしいのですが、 何個まで...
- キングソフトのWPSにて、エクセルのように印刷プレビュー状態でセルの編集が出来...
- 格安パソコンについて質問です。 エクセルExcel、ワードWord、とDVDが付いていて5...
- エクセル A1 B1 C1 D1 品番 商品名 品番 商品名 このようなデータがあ...
- エクセルでif関数で、色を条件に加えることはできますか。例えば赤色で記入された...
- mosのワードのスペシャリストをとったものですが、エキスパートをとった方が良い...
- Excelでコメントに画像を貼り付けたいのですが別シートに貼っている画像を品目ご...
- Excel for Mac 2011の条件書式設定方法を教えてください。I6〜AM6のセルの間で、...
- SECONDのライブはフリスビーありますか?
片思い、、、脈あり?
回答受付中の質問
カテゴリQ&Aランキング
- 戻る
- 次へ
総合Q&Aランキング
みんなのお悩み相談室
みんなのアンテナ
Yahoo!知恵袋カテゴリ
お客様自身の責任と判断で、ご利用ください。

