Excel | 如何利用VBA把汉字和英文分开？ | VBA,自定义函数,分离汉字

Function GetMyString(MyValue As Range) '提取英文及数字、排除中文字

Application.Volatile
      For i = 1 To Len(MyValue)
         If Asc(Mid(MyValue, i, 1)) > 0 Then
            MyString = MyString & Mid(MyValue, i, 1)
         End If
      Next
GetMyString = MyString
End Function

Function getchn(MyValue As Range)'提取中文

Dim i As Integer

Dim chn As String

For i = 1 To Len(MyValue)

If Asc(Mid(MyValue, i, 1)) < 0 Then

chn = chn & Mid(MyValue, i, 1)

End If

Next

getchn = chn

End Function

******************************************

Function 汉字(reg, Optional gb As Boolean = True) As String
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
If gb Then
.Pattern = "[^\u4e00-\u9fa5，；,]"
Else
.Pattern = "[\u4e00-\u9fa5，；,]"
End If
汉字 = .Replace(reg, "")
End With
End Function

代码

Function 英文(reg, Optional gb As Boolean = True) As String
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
If gb Then
.Pattern = "[!^\u4e00-\u9fa5，；,]"
Else
.Pattern = "[!\u4e00-\u9fa5，；,]"
End If
英文 = .Replace(reg, "")
End With
End Function

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。