簡単にコピーする方法

質問

A、C、E、F列に3行目から250行目程度データが入っています。
H～J列のよう縦方向に順番にコピーする簡単な方法を教えて下さい。
但し、6行目の様に各スペース行を設ける。
また、結果が1000行となってしまっても良いです。
マクロ使用でも構いません。

　　A　　B　　　C　　D　　　E　　　F　　　　G　　　H　　　I　　　J　
1
2
3　ｓｓ　　　　3-6　　　　　　ｍ　　　7　　　　　　　　ｍ　　　　　　7
4　ｓｚ　　　　1-8　　　　 　　ｇ　　　6　　　　　　　　ｓｓ
5　　　　　　　　　　　　　　　　　　　　　　　　　 　　3-6
6
7　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ｇ　　　　　　6
8　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ｓｚ
9　　　　　　　　　　　　　　　　　　　　　　　　　　　　1-8
.
.
.
.

回答No.3

kernel_kaz · ベストアンサー

マクロでやるしか無いかな。

j　=　3
for　i　=　3　to　250
　　cells(j,8)　=　cells(i,5)
　　cells(j,10)　=　cells(i,6)
　　cells(j+1,8)　=　cells(i,1)
　　cells(j+2,8)　=　cells(i,3)
　　j　=　j　+　4
next

お礼

回答有難う御座います。
250行まで実行できました。
マクロより横から縦への変化が良くわかります。

回答No.4

ASIMOV

終了判定をＡ列のセルが空白かどうかでやってます
--------------------------
Sub Mc01()
　　lc = 3: lv = 3
　　Do Until Cells(lc, "A") = ""
　　　　Cells(lv + 1, "I") = Cells(lc, "A")
　　　　Cells(lv + 2, "I") = Cells(lc, "C")
　　　　Cells(lv, "I") = Cells(lc, "E")
　　　　Cells(lv, "K") = Cells(lc, "F")
　　　　lc = lc + 1: lv = lv + 4
　　Loop
End Sub

お礼

回答有難う御座います。
空白セルでSTOPされるので非常に有難いです。

回答No.2

x1va

とおもったけど、全然違った。
取り下げます。すんません。

回答No.1

x1va

要は縦横を変えるってことですよね。
右クリック or 編集 → 形式を選択して貼り付け　→　行列の入れ替えにチェック
でできます。