VBA列を行に入れ替える方法

質問

エクセル２０１０を使用してるのですが

シート１の13列ずつ飛び飛びのセルをコピーして

1......2.....3.....4......5......6.....7.....8.....9....10

シート２のA1からA10に貼り付けする
1
2
3
4
5
6
7
8
9
10

For nextのコードで記述するにはどういう方法がありますでしょうか？

よろしくお願いいたします。

回答No.2

MarcoRossiItaly · ベストアンサー

Dim i As Long
For i = 1 To 10
　　Worksheets("シート１").Cells(1, 13 * (i - 1) + 1).Copy Destination:=Worksheets("シート２").Cells(i, 1)
　　' 1 行目を 1 列目にコピーする場合
Next i

お礼

ご回答ありがとうございました。

やりたいことができました。

有難うございます。

回答No.1

masatsan

??????
VBAやったことあるなら、とても簡単なことと思いますが、どこがわからないのでしょうか？？