怎样使用VBA按分割符取数？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Function Division(txt, str As String, N As Byte) As String  '分割取数

    Dim Temp
    If InStr(txt, str) > 0 Then  '如果数据中存在指定的分割符
    Temp=Split(txt, str)  '将字符串转换成数组
    Division=Temp(N-1)  '从数组中取出字符串
    Else
    Division="分割符不存在"
    End If
End Function

5、在单元格B2中输入公式“=Division($A1,"/",COLUMN(A:A))”，然后右拉至D2，公式结果如图所示