【excel VBA】中英文分割

'中文Function SplitStringChs(TheString)      Dim n, Chs      For n = 1 To Len(TheString)        If Asc(Mid(TheString, n, 1)) < 0 Then          Chs = Chs & Mid(TheString, n, 1)        End If      Next      SplitStringChs = Chs    End Function'英文Function SplitStringEng(TheString)    Dim n, Eng    For n = 1 To Len(TheString)      If Asc(Mid(TheString, n, 1)) >= 0 Then        Eng = Eng & Mid(TheString, n, 1)      End If    Next    SplitStringEng = Trim(Eng)End Function