VBA 判断字符串含中文、英文、数字（亲自实践）

最新推荐文章于 2021-04-26 15:16:57 发布

bigheadsheep

最新推荐文章于 2021-04-26 15:16:57 发布

阅读量2.5w

点赞数 2

分类专栏： VBA宏

本文链接：https://blog.csdn.net/bigheadsheep/article/details/41960171

版权

VBA宏专栏收录该内容

16 篇文章 3 订阅

订阅专栏

   Dim exp As String
   Dim temp, tmpExp As String
   Dim length As Integer

        length = 0
        tmpExp = ""

        exp = Trim(xlsheet_TandE.cells(i, 8))
        For j = 1 To Len(exp)

            temp = Mid(exp, j, 1)
            '判断是否是中文
            If temp Like "[一-龥]" Then
                '截取前26个半角字符
                If length + 2 > 26 Then
                    Exit For
                Else
                    length = length + 2
                    tmpExp = tmpExp & temp
                End If

            '判断是否是英文、数字、英文半角句号和空格
            ElseIf temp Like "[0-9a-zA-Z. ]" Then
                '截取前26个半角字符
                If length + 1 > 26 Then
                    Exit For
                Else
                    length = length + 1
                    tmpExp = tmpExp & temp
                End If

            End If
        Next j

        '将截取后的内容设定到"Explaination"中
        xlsheet_TandE.cells(i, 8) = tmpExp