エクセルで縦一列を縦三列に並べ替えられますか？

並べ替えの作業なのでしょうか、できるかどうか判る方がいたらお願いします。
１
２
３
４
５
６
７
８
９

を
１２３
４５６
７８９

としたいと思っています。
ちなみにエクセル2003です。

No.1 ベストアンサー 回答者： MackyNo1 回答日時： 2011/02/20 17:12

関数でも表示できますが、簡便に対応するなら、空白セルに「\a1」と入力し右方向に３つオートフィルします。

「\a1」と入力したセルの下のセルに「\a4」入力し右方向に３つオートフィルします。
この6つのセルを選択して下方向にデータ数分だけオートフィルドラッグします。

最後にＣｔｒｌ＋Ｈで置換ダイアログを出して検索する文字列に「\」置換後の文字列に「=」を入力して「すべて置換」します。

No.5 回答者： layy 回答日時： 2011/02/20 18:37

１２３

４５６
７８９

でなく

１４７
２５８
３６９

や

１２３４
５６７８
９101112

や

１４７10
２５８11
３６９12

になったとしても、
数式を埋め直したりしなくても良いので、
そうしたいと思うならＶＢＡです。
コーディングの数か所の修正だけで済みそうです。
Ａ１から最下行まで１セルずつ処理できます。

No.4 回答者： mike_g 回答日時： 2011/02/20 17:43

添付図参照

C1: =IF(OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,)="","",OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,))

No.3 回答者： keithin 回答日時： 2011/02/20 17:24

簡単な　=A1　の式だけで出来る手順（参考に後述します）よりも，皆さん結局

=INDEX($A:$A,(ROW(A1)-1)*3+COLUMN(A1))
を右に計３列コピー，下にコピー
のような方法に飛びつきます。
列数とか変わったときに，式を改めて自分で作成するのはとってもメンドクサイと思うんですが。



参考：
C1,D1,E1に
=A1　=A2　=A3
を記入
C1:E3を選んで下向けにオートフィルドラッグ
C:E列を選び
Ctrl+Gを押し
現れたダイアログでセル選択を押し
現れたダイアログで空白セルをマークしてOKし
飛び飛びの選択状態を壊さないように右クリックして削除を選び
上に詰めて出来上がり。

No.2 回答者： MackyNo1 回答日時： 2011/02/20 17:23

参考までに

関数で対応するなら、以下の式を入力して右方向の３つ下方向に適当数オートフィルしてください。

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

参照するデータが文字列なら「&""」を追加すれば空白セルを参照した場合も「０」が表示されません。

=OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,0)&""

同様に数値データの場合は以下のような数式で空白表示にできます。

=IF(COUNT($A:$A)<(ROW(A1)-1)*3+COLUMN(A1),"",OFFSET($A$1,(ROW(A1)-1)*3+COLUMN(A1)-1,0))