按指定分隔符自动分割文本

GETSUBSTR() 说明

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

VBA 宏代码

要添加宏，请打开 Visual Basic 编辑器 (Alt+F11)， 插入 一个新的空软件模块 (Insert - Module) 并将该函数的文本复制到此处：

Function GETSUBSTR(Txt, Delimiter, n) As String
   'moonexcel.com.ua
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        GETSUBSTR = x(n - 1)
      Else
        GETSUBSTR = ""
      End If
End Function

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

 =GETSUBSTR(文本；分隔符；片段序列号) 

在哪里：

• 文本 - 我们计划从中提取片段的单元格中的文本；
• 分隔线 - 我们用来划分文本的符号；
• 片段的序列号 - 一个数字，它将显示我们想要获取哪个片段的顺序。

有关该主题的文章：

• 将文本分成几列
• 从文本中提取部分字符（LEFT、RIGHT、MID）
• 来自不同单元格的文本串联 (CONCATENATE)
• 按条件串联文本 (CONCATIF)