'ilaoyao-编译于无锡WYJ工程用。
'输入自定义符号，例如"【】"，rsymbo输入时需要带双引号
Function gs(ByVal Num, rsymbo) As String
    Application.Volatile True
    'If IsError(Trim(Str(Num))) = True Then MsgBox ("出现错误"): Exit Function
    chda = Len(Num)
    rsymbo1 = Left(rsymbo, 1)
    rsymbo2 = Right(rsymbo, 1)
    If Num = "" Then zjh = "": Exit Function
    'If Int(Left(Num, 1)) = 0 Then zjh = "": Exit Function
    If InStr(Num, rsymbo1) = 0 Then gs = Num: Exit Function
       a1 = InStr(Num, rsymbo1)
       a2 = InStr(Num, rsymbo2)
       numb = Left(Num, a1 - 1)
       numc = Right(Num, chda - a2)
 
      '测试过程：tempstr = "第1位：" & a1 & " → " & numb & 
Chr(10) & "第2位：" & a2 & " → " & numc & Chr(10)
         For j = 8 To 1 Step -1
           If InStr(numc, rsymbo1) = 0 Then gs = numb & numc: Exit Function
            chdc = Len(numc)
             a3 = InStr(numc, rsymbo1)
             a4 = InStr(numc, rsymbo2)
             numb = numb & Left(numc, a3 - 1)
             numc = Right(numc, chdc - a4)
 
            '测试过程：tempstr = tempstr & "第" & i + 2 & "位：" 
& a3 & " → " & numb & Chr(10) & "第" & i + 3 
& "位：" & a4 & " → " & numc & Chr(10)
        Next
   '测试过程：zjh = tempstr & Chr(10) & "最后结果：" & numb & numc
    gs = numb & numc
    
   End Function