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

質問

エクセルで、

８７
６４
２５

３３
９８
５２

４５
７２
１９

といったデータを、

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

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

回答No.3

ASIMOV · ベストアンサー

＞改行部分を改列に

もしかしてこれ？

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

回答No.4

mu2011

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

回答No.2

noname#204879

任意のセルに次式を入力して、下方および右方２列ドラッグ＆ペースト
=OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*4,)

回答No.1

imogasi

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
ーー
結果
87 33 45 11
64 98 72 23
25 52 19 41
＝＝＝＝＝＝＝＝＝＝
関数でやると
Ｉ１に式　=INDEX($A$1:$A$100,(COLUMN()-9)*4+ROW(),1)
Ｉ３まで式を複写。
Ｉ１：Ｉ３までを横方向に式を複写。
上式で、Ｉ列から書き出し始めるのでＩ列は９番めの列であるので、９という数字が出てくる。
結果
87 33 45 11
64 98 72 23
25 52 19 41