免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

Function GetMyString(MyValue As Range) '提取英文及數(shù)字、排除中文字
   
    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

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

1. Function 漢字(reg, Optional gb As Boolean = True) As String

2. With CreateObject("VBSCRIPT.REGEXP")

3.     .Global = True

4.     If gb Then

5.         .Pattern = "[^\u4e00-\u9fa5，；,]"

6.     Else

7.         .Pattern = "[\u4e00-\u9fa5，；,]"

8.     End If

9.     漢字 = .Replace(reg, "")

10. End With

11. End Function

代碼

2. Function 英文(reg, Optional gb As Boolean = True) As String

3. With CreateObject("VBSCRIPT.REGEXP")

4.     .Global = True

5.     If gb Then

6.         .Pattern = "[!^\u4e00-\u9fa5，；,]"

7.     Else

8.         .Pattern = "[!\u4e00-\u9fa5，；,]"

9.     End If

10.     英文 = .Replace(reg, "")

11. End With

12. End Function