エクセルで、異なる列のデータも一緒に並べ替えたいのですが

質問

エクセルの並べ替えについての質問です。
同じシート内に、データの入ったセル(重複なし)
が大量にあるのですが、一気に並べ替える方法が
わからず困っています。
例えば
　4 1 2
5 3 6
7 4 9
8
のように３列あるデータを、
　1
2
3
…のように縦１列一緒にしてソートしたいのですが、
方法がわかりません。
どなたか教えていただけると助かります。
よろしくお願いいたします。

回答No.3

misatoanna · ベストアンサー

データと行番号を混同しますので、例データを変えますが、
　　　A　B　C　D
　1　h　a　b
　2　e　c　f
　3　g　d　i
と並んでいるとして――
１．次のように入力します。
　　　D1：'=A1
　　　D2：'=B1
　　　D3：'=C1　　※ 'を忘れないように！
２．D1:D3 を選択し、Ｄ列下方に必要行までドラッグコピーします。
３．Ｄ列範囲が選択状態で、[データ]－[区切り位置]－[完了]。
以上の操作でデータがＤ列に並びます。
以前にどこかで仕入れたワザですが、これにソートをかければよいでしょう。

お礼

早速ありがとうございます！
名簿など、他にも応用できそうですね。
また試していませんが、何とか出来そう
です。助かりました。
本当にありがとうございます！

回答No.5

endorin

ランダムなセルに入力された値を同じ縦の1列に書き出すというマクロを作りました。
もし、マクロに抵抗がなかったら参考にしてはいかがでしょうか？

【処理】
・A1～E5までのセルにランダムに数字が入っていることを想定しています。
・A1～E5までのセルを一つずつ順に読み込んでいきセルの内容がブランクでなかっ
　たらまったく関係のない行にその数値を書き出していきます。
・最後にエクセルのソート機能を利用してご自分でソートしてください。

↓これをツール⇒マクロ⇒Visual Basic Editorの標準モジュールに
　コピーして実行してください。

☆ここからが処理☆　

Sub 並べ替え()

Dim Celpos As Integer 'セル横の位置
Dim Rowpos As Integer 'セル行位置
Dim cnt As Integer '書き出しカウント

cnt = 1 '書き出し　初期値

'行をループさせる。
For Rowpos = 0 To 4
'　　列をループさせる。
For Celpos = 0 To 4
'セルの内容が空白ではなかったら書き出しの処理をおこなう。
If Cells(Rowpos + 1, Celpos + 1) <> "" Then
Cells(cnt, 8) = Cells(Rowpos + 1, Celpos + 1)
'書き出しの位置に1を増やす
cnt = cnt + 1
End If
Next
Next

End Sub

お礼

早速ありがとうございます。
実はマクロは手をつけたことがないので、
くらくらしてしまったのですが…。
勉強だと思って頑張ってみます！

回答No.4

misatoanna

#3の補足です。
ソートをかける前に、Ｄ列を同じＤ列に値形式でコピーしてください。

お礼

こちらもありがとうございます。

回答No.2

k-family

やはり面倒ですが、Ａ列の下にＢ列の内容を、さらにその下にＣ列の内容を移動してから並べるのが良いかと思います。
３列だけならそれほどの手間ではないと思いますが。

お礼

早速ありがとうございます。
実は74列×350行もあるので…方法が全くない
ようならばあきらめて手作業するつもりです。
また何かありましたら宜しくご教示下さい。

回答No.1

sydneyh

Ecelの並べ替えは、同列/同行での整列しか出来ません。
列と行両方を元にした並べ替えは出来ません。

お礼

早速ありがとうございます。
また何かありましたら宜しくご教示下さい。