エクセルの改行を改列にしたい

エクセルで、

８７
６４
２５

３３
９８
５２

４５
７２
１９

といったデータを、

８７　３３　４５
６４　９８　７２
２５　５２　１９

というように、改行部分を改列にしたいのですが、どのように操作すればよろしいでしょうか。

No.3 ベストアンサー 回答者： ASIMOV 回答日時： 2008/10/27 23:31

＞改行部分を改列に

もしかしてこれ？

A1 =８７
　　６４
　　２５
として
B1 =LEFT(A1,2)
C1 =MID(A1,4,2)
D1 =MID(A1,7,2)　又は =RIGHT(A1,2)

No.4 回答者： mu2011 回答日時： 2008/10/28 10:24

次の方法は如何でしょうか。

１セル内に改行されたデータを横列に抽出します。
（１）仮にＡ列として、Ａ列を選択
（２）データ→区切り位置→次へ→区切り文字で「その他」を選択、コード欄にctrl＋Ｊキーを同時押下（コード表示されませんがデータプレビュー欄に区切り表示される）→完了

No.2 回答者： mike_g 回答日時： 2008/10/27 21:17

任意のセルに次式を入力して、下方および右方２列ドラッグ＆ペースト

=OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*4,)

No.1 回答者： imogasi 回答日時： 2008/10/27 20:50

VBAでやるような課題。

標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
j = 3 'D列から右行に書き出し
K = 1 '1行目から書き出し
blk = "N" '今までの塊の中で無い
For i = 1 To d '第１行からｄ行まで繰り返し処理
If Cells(i, "A") = "" Then '空白なら
blk = "N" '今までの塊の続きの中で無くなった
Else
If blk = "N" And Cells(i, "A") <> "" Then '塊が切れて後の初の非空白
blk = "Y" '塊の状態の始まり
K = 1 '第1行目に書き出し用意
j = j + 1 '列を右行へ書き出し用意
Cells(K, j) = Cells(i, "A") '書きだし
K = K + 1 '1行下へ書き出し用意
Else
Cells(K, j) = Cells(i, "A") '書き出し
K = K + 1 '次回は1行下へ書き出し用意
End If
End If
Next i

End Sub
例データ
87
64
25

33
98
52

45
72
19

11
23
41
ーー
結果
87334511
64987223
25521941
＝＝＝＝＝＝＝＝＝＝
関数でやると
Ｉ１に式　=INDEX($A$1:$A$100,(COLUMN()-9)*4+ROW(),1)
Ｉ３まで式を複写。
Ｉ１：Ｉ３までを横方向に式を複写。
上式で、Ｉ列から書き出し始めるのでＩ列は９番めの列であるので、９という数字が出てくる。
結果
87334511
64987223
25521941