ワークシートからファイル拡張子を抽出する方法は？

ファイル拡張子を含むファイル名の列があり、現在、何らかの目的でセルからファイル拡張子のみを取得したい場合。 それらをXNUMXつずつ手動で抽出するのは面倒ですが、今日は、それを完了するための簡単なトリックをいくつか紹介します。

式を使用してワークシートからファイル拡張子を抽出します

ユーザー定義関数を使用してワークシートからファイル拡張子を抽出します

---

式を使用してワークシートからファイル拡張子を抽出します

セルからファイル拡張子を抽出するには、次の数式を使用すると便利です。

1。 次の式を入力します。

= REPLACE（RIGHT（A2,5）、1、SEARCH（ "。"、RIGHT（A2,5））、 ""） データ以外の空白のセルに入れます。 スクリーンショットを参照してください：

2。 次に、塗りつぶしハンドルをこの数式を含める範囲までドラッグすると、すべてのファイル拡張子がセルから抽出されます。スクリーンショットを参照してください。

---

ユーザー定義関数を使用してワークシートからファイル拡張子を抽出します

別の方法も、このジョブを完了してユーザー定義関数を作成するのに役立ちます。

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

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

VBAコード：ワークシートからファイル拡張子を抽出します

Function FileExt(FileName As String) As String
'Update 20141111
    On Error Resume Next
    If InStrRev(FileName, ".") > 0 Then FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
    If Err <> 0 Then MsgBox Err.Description, vbCritical, "Kutools for Excel"
End Function

3。 次に、このコードを保存して閉じ、ワークシートに戻って、この数式を入力します = FileExt（A2） データの横の空白のセルに、スクリーンショットを参照してください。

4。 次に、塗りつぶしハンドルをこの数式を含める範囲までドラッグすると、すべてのファイル拡張子が列Aから抽出されます。スクリーンショットを参照してください。

先端：上記の式で、A2は拡張子を抽出するセルを示します。

---

関連記事：

セルに拡張子なしでファイル名を返す方法は？

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