エクセルでカタカナ、アルファベット、数字混同データの並び替え

B列にアルファベット、数字、カタカナのデータが混在していますが、
これを、カタカナ→アルファベット→数字の順で並び替えるには
どうしたらいいのでしょうか…
A列　　　B列　　　C列　　　　A列　　　B列　　　C列

AA001　Eｺﾝ　　　10　　　　　 AA001 　　ｸﾛ 　　　20
AA001 　ｸﾛ 　　　20 　　→　　AA001 　　Eｺﾝ　　　10
AA001　 1　　　　15　　　　　 AA001 　　1 　　　15

このようにしたいです。
ﾃﾞｰﾀが更新されてもすぐに対応できるようにマクロで処理したいと考えています。
カタカナはすべて半角です。

No.1 ベストアンサー 回答者： neKo_deux 回答日時： 2017/05/16 13:55

例えば、D列に、

カタカナ -> 2
アルファベット -> 1
数字 -> 0
になるような関数作っといて、D列を条件に並べ替えとか。

Function ValType(src As String) As Integer
　If IsNumeric(src) Then ' 数値なら0
　　ValType = 0
　Else
　　If Left(src, 1) Like "[A-Z]" Then ' 先頭文字が英字なら1
　　　ValType = 1
　　Else
　　　ValType = 2
　　End If
　End If
End Function

--
> ﾃﾞｰﾀが更新されてもすぐに対応できるようにマクロで処理したいと考えています。

データの入力(更新)時に、勝手に並べ替えされたら困るのでは。
例えば、質問の例の左側３行目を、
AA001　 1　　　　15
↓
AA001　 シロ　　　45
って変更しようとしたら、シロを入力した時点で並べ替えが起こっちゃって、どこ入力してたかわからなくなるとか。