小白，照抄书上代码，运行错误，提示“子过程或函数未定义”求大神帮忙给看看谢谢！！

Question

小白，照抄书上代码，运行错误，提示“子过程或函数未定义”求大神帮忙给看看谢谢！！

代码：：
Function Breakdown(rng As Range, Optional style As Byte = 1) As String
    Application.Volatile
    On Error Resume Next
    Dim i As Integer, str As String
   str = Sp1it(rng.Text, "，")(WorksheetFunction.RoundUp(style / 3, 0) - 1)
   If style Mod 3 = 1 Then
    For i = 1 To Len(str)
        If VBA.IsNumeric(Mid(str, i, 1)) Then Exit Function
        Breakdown = Breakdown & Mid(str, i, 1)
    Next i
    ElseIf style Mod 3 = 2 Then
        For i = 1 To Len(str)
            If VBA.IsNumeric(Mid(str, i, 1)) Or Mid(str, i, 1) = "." Then Breakdown = Breakdown & Mid(str, i, 1)
        Next
    ElseIf style Mod 3 = 0 Then
        For i = Len(str) To 1 Step -1
            If VBA.IsNumeric(Mid(str, i, 1)) Then Exit Function
             Breakdown = Mid(str, i, 1) & Breakdown
        Next i
    
    End If
    If Err <> 0 Then Breakdown = ""
 End Function

Answer 1

第5行增加"VBA.",改为:
str = VBA.Split(rng.Text, "，")(WorksheetFunction.RoundUp(style / 3, 0) - 1)修改后:
文件下载:
链接：https://pan.baidu.com/s/1H73wpt4f6ZQNwAA2Bj6avA 
提取码：znkg 

Answer 2

函数名写错了 不是Sp1it  是Split 中间不是数字1,是字母L