VBA
公式法：可使用如下函数对其字符数和字节数进行判定（A1为字符串地址）。=LEFT(A1,LENB(A1)-LEN(A1))备注：如果后面还有汉字，将无法达到目标；如果其中包含全角的非汉字字符，也无法达到目标。
VBA法可使用如下
VBA操作，使用CC函数即可。以上问题也不存在。Function CC(myRange As Range)On Error Resume NextDim i As SingleFor i = 1 To Len(myRange)If Asc(StrConv(Mid(myRange, i, 1), vbNarrow)) 0 ThenExit ForEnd IfNextCC = Left(myRange, i - 1)End Function
