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

質問

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

を
１２３
４５６
７８９

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

回答No.1

MackyNo1 · ベストアンサー

関数でも表示できますが、簡便に対応するなら、空白セルに「\a1」と入力し右方向に３つオートフィルします。
「\a1」と入力したセルの下のセルに「\a4」入力し右方向に３つオートフィルします。
この6つのセルを選択して下方向にデータ数分だけオートフィルドラッグします。

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

回答No.5

layy

１２３
４５６
７８９

でなく

１４７
２５８
３６９

や

１２３４
５６７８
９101112

や

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

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

回答No.4

noname#204879

添付図参照

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

簡単な　=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

参考までに

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

=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))