エクセル カラムからデータ並べ替え

質問

ウェブからコピーしたデータをエクセル２０１０にペーストし、すべてＡ列にデータが入っています。

縦に並んで入っているデータは、１７行で一つのデータになっています。

そのため、１７行区切りで横に並べていきたいのです。

そのようなマクロプログラムをお教えください。

宜しくお願い致します。

回答No.1

don9don9 · ベストアンサー

マクロではありませんが。

仮にデータがA1から入っているとして、B1セルに

=INDIRECT("A"&ROW(A1)*17-(17-COLUMN(A1)))

という式を入れて、これを右方向、R1セルまでコピーします。

このB1:R1セルを必要な行数だけ下方向へコピーでいかがでしょうか。

お礼

ありがとうございます。解決しました。

回答No.3

K Kazz（@JazzCorp）

マクロに非ず、
sheet1：データシート
sheet2：データを並べ替えるシート（A列～適当）
A1に、

=INDIRECT("sheet1!$A"&(MOD(ROW()-1,17)+1)+(COLUMN()-1)*17)

以下、A17までコピー

横方向にも17行（個）セット（A1～A17）でコピー、適当に

お礼

ありがとうございます。

回答No.2

watabe007

こんにちは、参考に
Sub Test()
　　Dim c As Range, i As Long
　　For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
　　　　i = i + 1
　　　　Range("B:R").Item(i).Value = c.Value
　　Next
End Sub

お礼

ありがとうございます。