无法分割为多个特殊字符

Question

我正在尝试将单元格A1中的字符串'C：\\ Users \\ punateng \\ Desktop \\ Pending Spec Updates.xlsx'中的单元格值拆分为最后一个“ \\”，以便单元格B1中的结果应为'C：\\ Users \\ punateng \\桌面\\'

我写了下面的代码：

Sub mu()
Cells(1, 2).Value = Split(Cells(1, 1).Value, "\")
End Sub

但是我在单元格B1中得到的结果是C:。

请帮忙。

Answer 1

Split返回一个字符串数组，在这种情况下，它将由输入文本的每个部分组成，该部分之前用\\分隔-因此，您实际上是在返回数组{"C:";"Users";"punateng";"Desktop";"Pending Spec Updates.xlsx"} 。 当您尝试将其粘贴到Cells(1,2) ，VBA只是将其解释为字符串数组的第一个元素。

相反，您可能想尝试

Cells(1,2).Value=Left(Cells(1,1).Value,InstrRev(Cells(1,1).Value,"\\")-1)

它应该找到\\的最后一个实例，并返回之前的文本。

Answer 2

这是一种功能优于子功能的情况。

Excel具有查找和搜索功能，但没有FindLast函数。

在用户定义函数（UDF）中，可以使用Application.WorksheetFunction集合中不提供的某些函数。 其中一个是InstrRev ，它查找字符串““ \\”的第一个实例的位置，该位置从字符串的末尾开始向后读取。 使用这个知识的小知识和文本编辑功能，您可以构建此UDF：

Function FileNameFromPath(Path1 As String)
    'Test if you have been parsed an network file path
    If InStr(1, Path1, "\") > 0 Then
        'Get whatever is after the last "\"
        FileNameFromPath = Right(Path1, Len(Path1) - InStrRev(Path1, "\"))
    Else
        'Could be a SharePoint file with http// address
        If InStr(1, Path1, "\") > 0 Then
            'Get whatever is after the last "/"
            FileNameFromPath = Right(Path1, Len(Path1) - InStrRev(Path1, "/"))
        Else
            'There isn't a path separator there
            FileNameFromPath = "That ain't a path"
        End If
    End If
End Function

因此，您可以在工作簿的任何单元格中调用此UDF，方法是键入“ = fi”，单击Tab键将其粘贴到单元格中，然后选择要测试的单元格并输入尾括号“）”。