|
▼rin さん:
>ある範囲指定をしたリストがあります。
>1行目のデータを行列を入れ替えて(横から縦並びへ)コピーをし、(どこかリストの外側の列へ)
>次に2行目のデータを1行目の並び替えをしたデータの下に同じく行列を入れ替えてコピーをする。
>更に3行目のデータを行列を入れ替えて、並び替えをした列の再下段へ貼り付ける・・・。
>これをリストの再下段まで繰り返し、1列のデータに仕上げる作業をしたいと思います。
>マクロを走らせて処理をする方法はどうしたらできるでしょうか?
こんな方法でSheet2のA列へ
Sub TESTa()
Dim i As Long
Dim j As Long
j = 1
For i = 11 To 20
Worksheets("Sheet1").Cells(i, 5).Resize(, 6).Copy
Worksheets("Sheet2").Cells(j, 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
j = j + 6
Next
End Sub
|
|