ベストアンサー

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

2011/10/15 22:44

エクセル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 としたいのです。何かよい方法ありましたらお教え願います。

presshow
お礼率27% (48/177)

オフィス系ソフト
回答数5
ありがとう数2

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

mar00
ベストアンサー率36% (158/430)

2011/10/15 23:27 回答No.1

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

ログインすると、全ての回答が全文表示されます。

その他の回答 (4)

haichicchi
ベストアンサー率30% (66/214)

2011/10/15 23:41 回答No.5

以下のどちらかでできると思います。（方法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

ありがとうござました。

ログインすると、全ての回答が全文表示されます。

imogasi
ベストアンサー率27% (4737/17070)

2011/10/15 23:32 回答No.4

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関数で加える（略）

ログインすると、全ての回答が全文表示されます。