ワードかエクセルでURLの一部抽出（置き換え）

http://xxx.jp/bm/vw/
http://xxx.jp/cf/id/
http://xxx.jp/35min/rararan/
http://xxx.jp/fba/otameshi/
http://xxx.jp/ja/DDSseries/

上記のようなURLのリストがあります。
このうちURLの最後の部分
vw
id
rararan
otameshi
DDseries

だけを抽出するにはどうればいいのでしょうか？
置き換えコマンドを使うとおもうのですが、うまくいきません。
よろしくお願いします。

No.1 ベストアンサー 回答者： Yamatoken 回答日時： 2007/07/18 02:38

ExcelにてMID関数とFIND関数との組み合わせとかでも可能ですが、

単純に最後の部分だけを抜き出せれば良いのであれば、
メニューバーのデータ→区切り位置　機能を使えば如何でしょう。

URLデータとのことなので、「/」で区切ると仮定しましょう。
1.データ範囲（単一列）を選択
2.データ→区切り位置を選択
3.「カンマやタブの区切り文字によって・・・」のラジオボタンを選び
　　「次へ」
4.区切り文字欄で「その他」にチェックを入れ、右隣にあるTextBoxに
　/　を入力し「次へ」
5.完了

上記にて、例えば「http://xxx.jp/bm/vw/」であれば、
「http：」「xxx.jp」「bm」「vw」とセルが分かれます。

お試しください。

No.3 回答者： imogasi 回答日時： 2007/07/18 09:24

都合のよいVBの関数があるので、ユーザー関数でやってみました。

VBEの標準モジュールに
Function rv(a)
p1 = InStrRev(a, "/", -1, vbTextCompare)
p2 = InStrRev(Mid(a, 1, p1 - 1), "/", -1, vbTextCompare)
rv = Mid(a, p2 + 1, p1 - p2 - 1)
End Function
と入れる。（rv２箇所は自由に名前をつけてよい）
ーーー
ワークシート上でA列に上記URLがあるとして
B列に、＝A1として、A列の「値」をとる。式を下方向に複写。
C1に　=rv(B1)　　と入れて下方向に式を複写。
結果
vw
id
rararan
otameshi
DDSseries

No.2 回答者： maron--5 回答日時： 2007/07/18 05:16

◆関数による方法です

=REPLACE(LEFT(A1,LEN(A1)-2),1,FIND("★",SUBSTITUTE(A1,"/","★",LEN(A1)-LEN(SUBSTITUTE(A1,"/",))-1)),)
★下にコピー