使用VBA判断单元格各字符是否为中文、英文、数字、符号的复杂解读

1、Function lsLike(strText As String, patter n As Stri ng As Boolea nIsLike = strText Like patternEnd FunctionFunction IsCh in ese(strText As Stri ng As Boolea nDim i%, h$h = Hex(Asc(strTextIf Asc(Left(h, 1 = 66 And Asc(Left(h, 1 = 70 ThenIsChi nese = TrueEnd IfEnd FunctionFunction Strin gType(strText

2、As String, Opti onal outPutType As In teger = 1,Optio nal sumVar As Boolea n = False As Varia ntDim strtemp As String, bl nArray(1 To 5 As String, strPreType As In tegerDim intNum As Integer, startPos As Integer, intlen As IntegerDim strArray As Varia nt, strCompare1 As String, strCompare2 As String

3、, dblSumAs DoubleIf sumVar = True And Not (outPutType 2 Or outPutType 4 The n sumVar =FalseFor i = 1 To Len( strTextstrtemp = Mid(strText, i, 1 If i 1 Then strComparel =WorksheetFunction.Asc(Mid(strText, i - 1,3 strCompare2 = WorksheetFu nction.Asc(Mid(strText, i, 2If WorksheetF un ctio n.Dbcs(strte

4、mp = strtemp The n strtemp = WorksheetF unctio n. Asc(strtempIf lsLike(strtemp, 0-9 Or lsLike(strCompare1, 0-9.0-9 OrlsLike(strCompare2, -0-9 ThenIf strPreType = 4 The nbl nArray(4 = Left(bl nArray(4, Le n(bl nArray(4 - 1 & in tNumElsein tNum = 1blnArray(4 = blnArray(4 & - & i & / &a

5、mp; intNumEnd IfstrPreType = 4in tNum = in tNum + 1Elself IsLike(strtemp, a-zA-Z The nIf strPreType = 5 The nbln Array(5 = Left(bl nArray(5, Le n(bl nArray(5 - 1 & in tNumElsein tNum = 1blnArray(5 = blnArray(5 & - & i & / & intNumEnd IfstrPreType = 5in tNum = in tNum + 1ElseIf Is

6、Chi nese(strtemp The nIf strPreType = 1 The nblnArray(1 = Left(blnArray(1, Len(blnArray(1 - 1 & intNumElsein tNum = 1blnArray(1 = blnArray(1 & - & i & / & intNumEnd IfstrPreType = 1in tNum = in tNum + 1ElsestrPreType = 0End IfElseIf lsLike(strtemp, 0-9 Or lsLike(strCompare1, 0-9.

7、0-9 OrlsLike(strCompare2, -0-9 ThenIf strPreType = 2 The nbln Array(2 = Left(bl nArray(2, Le n(bl nArray(2 - 1 & in tNum Elsein tNum = 1bl nArray(2 = bl nArray(2 & - & i & / & in tNumEnd IfstrPreType = 2in tNum = in tNum + 1Elself lsLike(strtemp, a-zA-Z ThenIf strPreType = 3 The

8、nblnArray(3 = Left(blnArray(3, Len(blnArray(3 - 1 & intNumElsein tNum = 1blnArray(3 = blnArray(3 & - & i & / & intNumEnd IfstrPreType = 3in tNum = in tNum + 1ElsestrPreType = 0End IfEnd IfNextstrtemp =strArray = Split(bl nArray(outPutType,-For i = 1 To UBou nd(strArrayin tNum = In Str(1, strArray(i, /startPos = Mid(strArray(i, 1, intNum - 1in tlen = Mid(strArray(i, i ntNum + 1If sumVar ThendblSum=dblSum + WorksheetFu nctio n.Asc(Mid(strText, startPos, i ntle nElsestrtemp=:strtemp & Mid(strText, startPos, intlen & End IfNextIf s