主页 / computer / 问题 / 1606447
Accepted
PaddyD
Asked: 2020-12-02 04:54:15 +0800 CST

Excel：如何从文本中删除多个文件路径

  • 772

我在电子表格中有 2000 行来引用项目图像，我需要删除文件路径，但某些字段在一个单元格中有多个图像引用，所以举一个复杂的例子：

/2/0/2099-1.jpg,/2/0/2099-2.jpg,/2/0/2099-3.jpg,/m/a/male_headless_mannequin_-_arms_folded.jpg

需要看起来像这样：

2099-1.jpg,2099-2.jpg,2099-3.jpg,male_headless_mannequin_-_arms_folded.jpg

但只有一个图像参考，例如：

/3/1/31-222-007.jpg,

公式：

> =MID(AA2,FIND("*",SUBSTITUTE(AA2,"/","*",LEN(AA2)-LEN(SUBSTITUTE(AA2,"/",""))))+1,LEN(AA2))

当只有一个 jpg 时效果很好，但如果有多个，我就卡住了。

谢谢

microsoft-excel

2 个回答

  1. Best Answer

    使用 中的数据A1，尝试：

    =CONCAT(FILTERXML("<t><s>"&SUBSTITUTE(A1,"/","</s><s>")&"</s></t>","//s[substring(., string-length(.) - 3) = '.jpg' or substring(., string-length(.) - 4) = '.jpg,']"))

    如果您运行 Excel 2019，则需要 CSE 此公式。如果有 Excel O365，则不需要 CSE，但还有一个较短的版本，使用LET()：

    =LET(X,FILTERXML("<t><s>"&SUBSTITUTE(A1,"/","</s><s>")&"</s></t>","//s"),CONCAT(IF(ISNUMBER(FIND(".jpg",X)),X,"")))

    在此处输入图像描述

    对于那些感兴趣的人，我在下面的评论中提到的问答链接。

    • 6

  2. 试试这个小的用户定义函数：

    Option Explicit

Public Function NoPath(sIn As String) As String
    Dim arr, i As Long, v As String, L As Long
    Dim j As Long
    
    arr = Split(sIn, ",")
    For i = LBound(arr) To UBound(arr)
        v = arr(i)
        L = Len(v)
        For j = L To 1 Step -1
            If Mid(v, j, 1) = "/" Then
                arr(i) = Mid(v, j + 1)
                Exit For
            End If
            Next j
        Next i
        NoPath = Join(arr, ",")
        
End Function

    在此处输入图像描述

    用户定义函数 (UDF) 非常易于安装和使用：

    1. ALT-F11 调出 VBE 窗口
    2. ALT-I ALT-M 打开一个新模块
    3. 粘贴这些东西并关闭 VBE 窗口

    如果您保存工作簿，UDF 将与它一起保存。如果您使用的是 2003 年以后的 Excel 版本，则必须将文件另存为 .xlsm 而不是 .xlsx

    要删除UDF：

    1. 如上所述调出 VBE 窗口
    2. 清除代码
    3. 关闭 VBE 窗口

    要使用Excel 中的 UDF：

    =NoPath(A1)

    要了解有关宏的更多信息，请参阅：

    http://www.mvps.org/dmcritchie/excel/getstarted.htm

    和

    http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

    有关 UDF 的详细信息，请参阅：

    http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

    必须启用宏才能使其正常工作！

    • 4

相关问题