Excelでフルパスからファイル名をすばやく抽出するにはどうすればよいですか？

ファイルパスのリストを含むワークシートがあるとすると、次のスクリーンショットのように、各パスからファイル名（最後の円記号の右側）だけを抽出します。 このタスクに対処するための簡単なトリックはありますか？

Excelの数式でフルパスからファイル名を抽出します
ユーザー定義関数を使用してフルパスからファイル名を抽出します
VBAコードを使用してフルパスからファイル名を抽出します

Excelの数式でフルパスからファイル名を抽出します

Excelでは、次の式を使用して、フルパスからファイル名のみをすばやく抽出できます。

空白のセルを選択し、以下の数式を入力して、を押します。 入力します キー。

=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

ヒント：A1は、ファイル名を抽出するセルです）、Enterボタンを押してから、塗りつぶしハンドルをドラッグして、目的の塗りつぶし範囲にします。 その後、各セルからファイル名が抽出されます。

ユーザー定義関数を使用してフルパスからファイル名を抽出します

次のユーザー定義関数を使用すると、ファイル名を簡単かつ迅速に取得できます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function

3. 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic ウィンドウを開き、ワークシートに戻ります。 空白のセル（たとえばB1）に、次の数式を入力して、 入力します キー。

=FunctionGetFileName(A1)

次に、セルB1を再度選択し、塗りつぶしハンドルをこの数式を適用する範囲にドラッグすると、次の結果としてすべてのファイル名がフルパスから抽出されます。

VBAコードを使用してフルパスからファイル名を抽出します

ユーザー定義関数に加えて、VBAコードはファイル名の抽出にも役立ちます。 このようにしてください：

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    splitList = VBA.Split(Rng.Value, "\")
    Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub

3。 次に、 F5 このコードを実行するためのキーを押し、ファイル名を抽出する範囲を選択します。スクリーンショットを参照してください。

4。 そして、 OK、ファイル名は次のように選択から抽出されています。

注意：このVBAコードを使用すると、元のデータが破棄されるため、このコードを適用する前にXNUMXつコピーする必要があります。

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

• 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。

続きを読みます... 無料ダウンロード... 購入... 

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性が50％向上し、毎日何百ものマウスクリックが減ります。

続きを読みます... 無料ダウンロード... 購入...