[[20200315200222]]　『1行のデータを別シートで2行に転記する方法』（ごえもん）　ページの最後に飛ぶ

『1行のデータを別シートで2行に転記する方法』（ごえもん）

VBAでシート1に1行あるデータを別シートに2行に転記するにはどのようにコードを記載すればよいか教えてください。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 参考に
 Worksheets("Sheet1").Range("A1:K1").Copy Worksheets("Sheet2").Range("C5:C6")

（ピンク） 2020/03/15(日) 20:12

すみません、具体的に言うと

【Sheet1】
　　　　A列　　　　B列　　　　　　C列
1行目　コーギー　　柴犬　　　　　ハスキー
2行目　Mix犬　　　ラブラドール　ゴールデンレトリバー
3行目　シェパード　秋田犬　　　　シェルティ
とあるものを

【Sheet2】に
1行目　コーギー　　柴犬　　　　　ハスキー
2行目　コーギー　　柴犬　　　　　ハスキー
3行目　Mix犬　　　ラブラドール　ゴールデンレトリバー
4行目　Mix犬　　　ラブラドール　ゴールデンレトリバー
5行目　シェパード　秋田犬　　　　シェルティ
6行目　シェパード　秋田犬　　　　シェルティ
という風にコピーペーストをしたいです。
（ごえもん） 2020/03/15(日) 20:36

 どこか作業列に1　2　3　と連番を振って必要な範囲をコピーペーストします。
 今回の場合は、塊の下にもう一度コピペします。
 次にその連番で並び替えればお好みの状態になると思います。
 最後に作業列を削除します。
 最初から具体的に示された方がお互いにBetterですよね
（SoulMan） 2020/03/15(日) 20:59

 どうぞ～
 >Sub Test()
    Dim i As Long

    With Worksheets("Sheet1")
        For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
            .Cells(i, 1).Resize(, 3).Copy Worksheets("Sheet2").Cells(i * 2 - 1, "A").Resize(2)
        Next
    End With
 >End Sub

（ピンク） 2020/03/15(日) 21:02

ピンクさん
教えて頂いたコードでやりたいことができました！
本当にありがとうございました。
（ごえもん） 2020/03/15(日) 21:20

コメント返信：

[ 一覧(最新更新順) ]

[[20200315200222]] 『1行のデータを別シートで2行に転記する方法』（ごえもん） ページの最後に飛ぶ

[[20200315200222]]　『1行のデータを別シートで2行に転記する方法』（ごえもん）　ページの最後に飛ぶ