エクセルで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 · ベストアンサー

'直接シートをいじるのでコピーをしてから試してみてください。
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

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

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

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

お礼

ありがとうござました。

回答No.4

imogasi

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列
a1 a2 a3 a4 a5
a6 a7 a8 a9 a10
a11 a12 a13 a14 a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える（略）

回答No.3

imogasi

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列
a1 a2 a3 a4 a5
a6 a7 a8 a9 a10
a11 a12 a13 a14 a15
ただし、丁寧には、データ数を超えたら空白になるような式をIF関数で加える（略）

回答No.2

tom04

こんばんは！
一例です。

表示したいセルに

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

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