URLの部分的な抜き取りについてご教授ください！

会社で依頼をされて大変困っております。
エクセルで以下の依頼をされました。


例）
http://AAA.com/BBB/CCC/DDD/EEE/index.html

⇒

http://AAA.com/BBB/CCC/

だけ抜き取りたいのです。

=IF(LEN(A154)-LEN(SUBSTITUTE(A154,"/",))<5,"",(MID(SUBSTITUTE(A154,"/",REPT(" ",100)),100*5-99,100)))
※例としてA154にURLがあるとして4番目と5番目のスラッシュの間からCCCだけ抜き取ることはできたのですが、
http://AAA.com/BBB/CCC/まで抜き取るにはどのようにしたら宜しいのでしょうか。

ご教授頂ければ幸いです。
よろしくお願いいたします。

No.1 回答者： WindFaller 回答日時： 2015/07/23 20:39

こんばんは。

A154　を、A1 に直しまして

=MID(A1,1,FIND("^",SUBSTITUTE(A1,"/","^",5)))

エラー処理するなら、
=IF(COUNTIF(A1,"*//*/*/*/*"),MID(A1,1,FIND("^",SUBSTITUTE(A1,"/","^",5))),"")

結果：
　http://aaa.com/BBB/CCC/

なお、残りは
=SUBSTITUTE(A1,B1,"")
結果：
　DDD/EEE/index.html

ちなみに、これは、Trim を入れたほうがよいです。
=IF(LEN(A1)-LEN(SUBSTITUTE(A1,"/",))<5,"",TRIM((MID(SUBSTITUTE(A1,"/",REPT(" ",100)),100*5-99,100))))