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 IfEnd Function
5、在单元格B2中输入公式“=Division($A1,"/",C蚪嬷吃败OLUMN(A:A))”，然后右拉至D2，公式结果如图所示
