エクセル挑戦問題
URLからファイル名を取得(一番右の指定文字以降を抽出)解答

エクセルの関数・操作のちょっと難しい問題、Excelチャレンジ問題集
最終更新日:2020-09-07

URLからファイル名を取得(一番右の指定文字以降を抽出)解答

エクセル挑戦問題解答ページです。

エクセル挑戦問題

URLからファイル名を取り出してください、

A1セルに、
https://excel-ubara.com/excel4/EXCEL706.html

ここから、
EXCEL706.html
を取り出してください。
もちろん関数で取り出します。
最後の/以降の文字を取り出すという事になります。

最後の/って・・・

発想の問題です。
最後(一番右)の/の位置さえ分かれば、
MID関数でも、RIGHT関数でも取り出せます。
つまり、最後(一番右)の/の位置を見つければ良いのです。

ある文字について、何らかの処理を行う関数は、
FIND関数
SEARCH関数

SUBSTITUTE関数
REPLACE関数
等々、これらを駆使してください。

では、お考えください。
すぐに解答を見ずに、必ず自力でやれるだけやってみましょう。

シンキングタイム

シンキングタイム開始


シンキングタイム終了

当サイトのコンテンツ
自分に合った、学習方法を見つけましょう。

エクセル入門
エクセル作業において必須となる操作、関数、ショートカットの使い方を入門・初級・初心者向けに解説しています。★エクセルの基礎を学習する方法★ エクセル入門.ショートカットキー…ショートカットキー一覧 エクセル操作をマウスではなくキーボードで操作します。
エクセル基本操作
エクセルの基本操作について解説。知ってそうで知らない操作や高度な操作まで。日付、時刻に関するあれこれ 数値の書式のあれこれ1.千単位、百万単位2.不要な0を表示せずに、小数点位置を揃える3.ユーザー定義書式で条件付き書式を使う4.Excel2003で、条件によりフォント色を5段階で表示する方法。
エクセル関数応用
エクセルの関数の応用技の解説。関数サンプルと必須の基本技術から応用・高等テクニックまでを紹介しています。1年後の日付、○か月後の日付 複数条件の合計・件数複数条件の合計、複数条件の件数を求める関数式です。

ここで、じっくり勉強して下さい。

エクセル挑戦問題解答

では解答です。

最初のヒントとおり、
最後(一番右)の/の位置を見つければ良いのです。

いきなり、最後(一番右)の/を見つけることはできません、そんな関数はありません。
※VBAでは、InStrRev関数があります
InStrREv関数は、文字列の中から指定した文字列を最後の文字位置から検索を開始し、最初に見つかった文字位置を返す文字列処理関数です、バリアント型(内部処理形式StringのVariant)で返します。InStrRev関数 InstrRev(stringcheck,stringmatch[,start[,

考え方
・最後の/を別の文字(例えば半角空白等)に置換出来れば、FIND関数で位置を特定できます。
・SUBSTITUTE関数では、第4引数で、何番目の検索文字列を置き換えるか指定できます。
 SUBSTITUTE(文字列, 検索文字列, 置換文字列, [置換対象])
 置換対象:文字列中の置換対象番目の検索文字列だけが置き換えられます。
・/が何個含まれているか分かれば、SUBSTITUTEで最後のみ置換出来そう。

・/が何個含まれているかは、
 SUBSTITUTEで、/を全て""で置き換えて、置換前と置換後のLEN関数の差が/も文字数

以上の考えをもとに関数を組み立てます。

・/の文字数
 =LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))
 結果は、4
・4番目の/を半角空白に置換
 =SUBSTITUTE(A1,"/"," ",4)
 結果は、https://excel-ubara.com/excel4 EXCEL706.html

これを組み合わせると、
=SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/","")))
とりあえず、この数式をA2セルに入れてみましょう。

・A2セルの半角空白から後ろ(右)を取得
 =RIGHT(A2,LEN(A2)-FIND(" ",A2))
 または、
 =MID(A2,FIND(" ",A2)+1,255) ・・・ 255文字を超えないという前提です。

これで、
EXCEL706.html
正しく取り出せました。
さらに、これを組み合わせても良いですが、さすがにちょっと長すぎです。
後で、解読に苦労するので、作業用の途中結果を入れるセルを使った方が良いと思います。
一応、全部組み合わせた数式は、

=RIGHT(SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))),LEN(SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))))-FIND(" ",SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/","")))))
または、
=MID(SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))),FIND(" ",SUBSTITUTE(A1,"/"," ",LEN(A1)-LEN(SUBSTITUTE(A1,"/",""))))+1,255)

関数自体は基本的な関数のみです。
難しい問題を、単純な問題の組み合わせに分解出来るか、
そして、基本関数をどう組み合わせるかが要点です。



同じテーマ「エクセル挑戦問題解答」の記事

百万単位で表示(百万未満は小数表示、小数位置も合わせる)回答
空白以外のセルの個数(計算結果が空白を除く)解答
指定行数おきに指定行数ずつ色を変更する解答
複数系列の積み上げ棒グラフ解答
億や万の表記を数値化する解答
URLからファイル名を取得(一番右の指定文字以降を抽出)解答
スピルを使って日付の一覧を出力解答
スピルを使って文字列を1セルずつに分解解答


新着記事NEW ・・・新着記事一覧を見る

VBA100本ノック 18本目:名前定義の削除|VBA練習問題100(11月6日)
VBA100本ノック 17本目:重複削除(ユニーク化)|VBA練習問題100(11月6日)
VBA100本ノック 16本目:無駄な改行を削除|VBA練習問題100(11月5日)
VBA100本ノック 15本目:シートの並べ替え|VBA練習問題100(11月4日)
VBA100本ノック 14本目:社外秘シート削除|VBA練習問題100(11月3日)
VBA100本ノック 13本目:文字列の部分フォント|VBA練習問題100(11月1日)
VBA100本ノック 12本目:セル結合を解除|VBA練習問題100(10月31日)
VBA100本ノック 11本目:セル結合の警告|VBA練習問題100(10月30日)
VBA100本ノック 10本目:行の削除|VBA練習問題100(10月29日)
VBA100本ノック 9本目:フィルターコピー|VBA練習問題100(10月28日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.マクロって何?VBAって何?|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ