任意の順番で並び替えするには？ (ID:146934)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ソートのやり方で悩んでいます。やりたいことは、指定された範囲の文字が入ったセルをソートし、その際に並び替えの順番を任意の順番で指定したいというものです。 例えば、A1のセルに「い」、A2のセルに「え」、A3のセルに「あ」、A4のセルに「う」と入っているデータをソートしようとした場合、通常であれば、A1からA4まで順にあ→い→う→え、となると思いますが、これをあ→え→う→い、というような通常とは違う順番にしたいのです。エクセルのオプションにあるユーザ設定リストに登録すればいいかとも思ったのですが、これもうまくいかず、また使用する端末が特定多数のため全ての端末に登録するのも難しい状況です。ちなみに現在は以下のようなコードを作っています。 Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Key2:=Range( _ "C1"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, SortMethod:=xlStroke ※Ａ１を昇順、Ｃ１を降順のキーとしています。 なお、開発環境はWinXP＋Excel2003ですが、使用環境はWin2000＋Excel2000も混在しています。当方かなり初心者入っていますが、ご教授頂ければ幸いですので、宜しくお願い致します。