在单元格或字符串中，按指定的分隔符提取第n个与第n-1个分隔符之间的字符

工作中，时常会遇到需要将单元格中的字符进行拆分的情况，使用如下几种方法可以快速完成。

1.通常情况下，使用【数据】选项卡上【数据工具】组中的【分列】命令即可完成（操作步骤略）。

2.如果一列数据均需要按统一的分隔符和固定的位置来提取字符，可以使用上一讲中的VBA代码来实现。

3.某些时候，使用自定义函数或许更加方便，如下面的自定义函数：

Function Getstr(Txt, Separator, Optional n = 1) As String

    Dim allelements As Variant

    allelements = Split(Txt, Separator)

    Getstr = allelements(n - 1)

End Function

这样，只需要在需要返回结果的单元格中，如同使用Excel自带的函数一样，输入自定义函数名称以及相关参数，即可取出需要的字符，十分方便。

注：原文附件可到本人QQ空间375659018中下载。