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 回答日時： 2013/08/24 10:34

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

この回答へのお礼

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

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

有難うございます。

お礼日時：2013/08/24 13:04

No.1 回答者： masatsan 回答日時： 2013/08/24 05:27

??????

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