【excel VBA】中英文分割

置顶开心果汁 2017-06-13 09:36:19

1383

分类专栏：数据开发--excel 文章标签： excel vba

本文链接：https://blog.csdn.net/u013421629/article/details/73161483

版权

'中文
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