TOP

按给定分隔符自动分割文本 (SPLITUP)

下面您将找到一个函数,可以帮助您根据指定的分隔符将文本拆分为多个部分。

为此,请打开编辑器 Visual Basic (Alt+F11), 插入新的空软件模块 (Insert - Module) 并将该函数的文本复制到此处:

Function SPLITUP(Txt, Delimiter, n) As String
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        SPLITUP = x(n - 1)
      Else
        SPLITUP = ""
      End If
End Function

保存并返回Excel。现在,在自定义函数中,您可以找到我们的 SPLITUP() 函数。

SPLITUP (文本;分隔符;片段的序列号) , 在哪里:

有关该主题的文章: