一回も披露したことのない豆知識

エクセル2010を使用してるのですが


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

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


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

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

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

A 回答 (2件)

Dim i As Long


For i = 1 To 10
  Worksheets("シート1").Cells(1, 13 * (i - 1) + 1).Copy Destination:=Worksheets("シート2").Cells(i, 1)
  ' 1 行目を 1 列目にコピーする場合
Next i
    • good
    • 0
この回答へのお礼

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

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

有難うございます。

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

??????


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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!