VBA判断是否中文符号

可以使用VBA的Asc函数来判断一个字符的ASCII码值，然后根据ASCII码值来判断是否是中文符号。一般来说，中文符号的ASCII码值范围在0x4E00到0x9FA5之间。

以下是一个简单的VBA函数，用于判断一个字符是否是中文符号：

Function IsChineseSymbol(ch As String) As Boolean
    Dim code As Integer
    code = Asc(ch)
    If code >= &H4E00 And code <= &H9FA5 Then
        IsChineseSymbol = True
    Else
        IsChineseSymbol = False
    End If
End Function

使用方法如下：

Sub Test()
    Dim str As String
    str = "你好，我是VBA！"
    For i = 1 To Len(str)
        If IsChineseSymbol(Mid(str, i, 1)) Then
            Debug.Print Mid(str, i, 1) & " 是中文符号。"
        Else
            Debug.Print Mid(str, i, 1) & " 不是中文符号。"
        End If
    Next i
End Sub

以上代码会输出每个字符是否是中文符号。