エクセルで1列に500行並んだデータを5列毎に改行

エクセル2000で、A１～A500までデータが縦並びに入力されています。

これを5列毎に改行して、横並びのデータに加工したいのですが、何か方法ありますか？

図解すると、、


A1
A2
A3
A4
A5
A6
A7
：
：
A500

のデータを

A1　A2　A3　A4　A5
A6　A7　A8　A9　A10
・・・・・・
A496 A497 A498 A499 A500


と
したいのです。

何かよい方法ありましたらお教え願います。

No.1 ベストアンサー 回答者： mar00 回答日時： 2011/10/15 23:27

'直接シートをいじるのでコピーをしてから試してみてください。

Sub Macro1()
COUNTER = 0
For INP = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
COUNTER = COUNTER + 1
Range("A" & INP & ":A" & INP + 4).Copy
Range("B" & COUNTER).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Next INP
Range("A1").EntireColumn.Delete
End Sub

No.5 回答者： haichicchi 回答日時： 2011/10/15 23:41

以下のどちらかでできると思います。

（方法1）VBAでプログラムを組む
　データを１列づつ読み込んで行番号に応じて１～５列に分けてカット＆ペーストする。

（方法２）関数とフィルタを使う
　B列に、１～５００までの数値を入れる。
　C列に、=MOD(B1,5)　(5で割った余り）を入れて以下のセルにコピー＆ペースト
　オートフィルタでC列のデータが1のもののみを選択してコピーし、別シートのA列にペースト
　同様に、C列が2,3,4,0のものを選択して別シートのB,C,D,E列にペースト

この回答へのお礼

ありがとうござました。

お礼日時：2011/10/15 23:55

No.4 回答者： imogasi 回答日時： 2011/10/15 23:32

VBAでやると簡単だが、関数でも出来る。

簡単な番地の計算問題だろう。
エクセルは、データを持ってくる方のセルで考えるのだ。
第１行の１列目が何処から持ってくるかを考える。
データの何番目を持ってくるのはINDEX関数だ。そういうのは勉強したのか。
（１，１）－１
（１，２）－２
（１，３）－３　　　略
（１，４）－４
（１，５）－５
（２，１）－６　－－＞（２－１）＊５＋１
（２，２）－７　－－＞（２－１）＊５＋２
（２，３）－８　－－＞（２－１）＊５＋３
・・
（３，１）－１１　　－－＞（３－１）＊５＋１
こういうルールは中学の数学ででも出てくる常識なんだ。
Sheet2
A列
a1
a2
a3
a4
a5
a6
a7
a8
・・・・
----
Sheet3のA1に　=INDEX(Sheet2!$A$1:$A$100,(ROW()-1)*5+COLUMN(),)
と入れてE1まで式複写。
A1:E1を下方向に式複写。
Sheet3　A-E列
a1a2a3a4a5
a6a7a8a9a10
a11a12a13a14a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える（略）

No.3 回答者： imogasi 回答日時： 2011/10/15 23:30

VBAでやると簡単だが、関数でも出来る。

簡単な番地の計算問題だろう。
エクセルは、データを持ってくる方のセルで考えるのだ。
第１行の１列目が何処から持ってくるかを考える。
データの何番目を持ってくるのはINDEX関数だ。そういうのは勉強したのか。
（１，１）－１
（１，２）－２
（１，３）－３　　　略
（１，４）－４
（１，５）－５
（２，１）－６　－－＞（２－１）＊５＋１
（２，２）－７　－－＞（２－１）＊５＋２
（２，３）－８　－－＞（２－１）＊５＋３
・・
（３，１）－１１　　－－＞（３－１）＊５＋１
こういうルールは中学の数学ででも出てくる常識なんだ。
Sheet2
A列
a1
a2
a3
a4
a5
a6
a7
a8
・・・・
----
Sheet3のA1に　=INDEX(Sheet2!$A$1:$A$100,(ROW()-1)*5+COLUMN(),)
と入れてE1まで式複写。
A1:E1を下方向に式複写。
Sheet3　A-E列
a1a2a3a4a5
a6a7a8a9a10
a11a12a13a14a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える（略）

No.2 回答者： tom04 回答日時： 2011/10/15 23:27

こんばんは！

一例です。

表示したいセルに

=INDEX($A:$A,COLUMN(A1)+5*(ROW(A1)-1))

として列方向と行方向にオートフィルでコピーではどうでしょうか？m（＿ ＿）m