如何在 Excel 中快速從完整路徑提取檔名？

假設您有一個工作表，其中包含一串檔案路徑列表，現在您希望從每個路徑中僅提取檔名（最後一個反斜線右側的部分），如下方的螢幕截圖所示。有沒有什麼快速技巧可以處理這個任務呢？

使用公式從完整路徑中提取檔名
使用使用者定義函數從完整路徑中提取檔名
使用 VBA 程式碼從完整路徑中提取檔名

使用公式從完整路徑中提取檔名

在 Excel 中，您可以使用以下公式快速從完整路徑中僅提取檔名。

選擇一個空白單元格，將以下公式輸入其中，然後按下 Enter 鍵。

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

提示：A1 是您要提取檔名的單元格，按下 Enter 按鈕後，拖動填滿控制點以填充您需要的區域。之後，每個單元格中的檔名都會被提取出來。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用使用者定義函數從完整路徑中提取檔名

透過以下的使用者定義函數，您可以輕鬆快速地獲取檔名。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼貼到模組視窗中。

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. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗並返回工作表。在空白單元格（例如 B1）中輸入以下公式，然後按下 Enter 鍵。

=FunctionGetFileName(A1)

然後再次選擇單元格 B1，拖動填滿控制點至您想套用此公式的範圍，所有檔名都已從完整路徑中提取出來，結果如下：

使用 VBA 程式碼從完整路徑中提取檔名

除了使用者定義函數外，VBA 程式碼也可以幫助您提取檔名。請按照以下步驟操作：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼貼到模組視窗中。

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. 接著點擊 確定，檔名已經從選定範圍中提取出來，如下所示：

注意：使用此 VBA 程式碼時，原始數據將會被破壞，因此在應用此程式碼之前，您應該先複製一份備份。