エクセル2003 関数を使って自動で並び替えをしたい

質問

エクセルで下記の表の様にＡ列の会社名を関数を使ってＢ列に自動で50音順に並べ替えたいのですが　何か良い方法ないでしょうか。よろしくお願いします

　　入力列　　　　　数式使用列
　　　　Ａ　　　　　　　　　Ｂ
1　会社名　　　　　　会社名
2　　い社　　　　　　　　あ社
3　　お社　　　　　　　　い社
4　　え社　　　　　　　　う社
5　　あ社　　　　　　　　え社
6　　う社　　　　　　　　 お社

回答No.1

noname#99913 · ベストアンサー

並べ替えを使うのが早いと思いますが、関数でやる場合は……

(1)B列に会社名を入力（行挿入でも良い）
(2)A2に次の式を入力し、下へコピー
　=VALUE(CODE(MID(C2,1,1))&CODE(MID(C2,2,1))&CODE(MID(C2,3,1)))
(3)B2に次の式を入力し、下へコピー
　=RANK(A2,A:A,1)
(4)D2に次の式を入力し、下へコピー
　=D1+1
(5)E2に次の式を入力し、下へコピー
　=VLOOKUP(D2,B:C,2,FALSE)

E列に文字コード順で会社名が並びます。先頭から3文字までを並べ替えに使っています。ABD列が邪魔な場合は非表示にしてください。

お礼

kozirou54さん御回答ありがとうございました
お陰様でうまくできました。