エクセル２０００で・・・

質問

ソートで、後方一致で並べ替える方法ってあるでしょうか。オートフィルとかだと後方一致で抽出できるんですが、いちいち一つ一つ抽出するのも手間なので、一気に並べ替えたいのです。よろしくお願いします。

回答No.2

imogasi · ベストアンサー

ＶＢＡなど道具として考えて、やって見てください。
エクセル関数だって内部でどう処理しているか知っている人は少ないはず。
（１）ツール－マクロ－ＶＢＥでＶＢＳ画面になる。
（２）挿入－標準モジュールで出てくる画面に下記をコピペして
（３）シート上の逆並び変換したい範囲を指定して
（４）Ｆ５キーを押してください。
Sub test01()
For Each cl In Selection
Cells(cl.Row, "F") = StrReverse(cl)
Next
End Sub
やっている意味は、範囲指定したセル全てについて
文字列を逆の並びにして同行のＦ列セルにセットせよ、です。
Cells(cl.Row, "F")の部分はＦ列に出しますが、空いた
列がＨ列ならＦをＨに変えてください。
福岡市
堺市
いわき市
さいたま市
が
市岡福
市堺
市きわい
市またいさ
になりました。エクセル２０００．

お礼

ご回答ありがとうございます。
やって見たのですが、上手く出来ません。
（３）はエクセルに戻って範囲を指定するという事でしょうか？エクセルに戻ってＦ５を押すと「ジャンプ」というメニューが出てきます。

それともＶＢＡの中で何か指定する事ができるのでしょうか。そこから先に進めません・・・

回答No.3

imogasi

＃２です。
（１）標準モジュール画面にプログラムのコピーを終わる
（２）ＡＬＴキーを押しながらＦ１１キーを押す。
　　　するとワークシートに戻る
（３）範囲指定する。
（４）ＡＬＴキーを押しながらＦ１１キーを押す。
　　　するとＶＢＥ画面に戻る
（５）ＶＢＥ画面でＦ５キー（またはメニューの実行－ＳＵＢ・・実行でも良い）を押す。
の順序です。

お礼

理屈は分かりませんでしたが、出来ました！
マクロも勉強してみようと思います。
ありがとうございました！

回答No.1

noname#102878

具体例がないのではずしてるかもしれませんが。

VBAで、隣のセルにStrReverse関数で逆さになった文字を書き出して、その列でソートしてはどうでしょうか。

お礼

ＶＢＡが使えないのでなんともやり方が分かりません。
ご回答ありがとうございました。

補足

ＶＢＡを試しに開いてみましたが・・・マクロはやった事が無いのでちょっと私には無理そうです。