use*_*896 2 vba spaces excel-2007
我有一个包含一些值的Excel文件.我需要检查单元格值是否包含空格.例如,有时用户会在单元格中写入一些值,但会错误地按下单元格中的Enter或Space.我想看看单元格值是否有空格...请告诉我该怎么做.
谢谢
假设我在单元格A1中键入"ABC"(ABC后跟一个空格).这些公式中的任何一个都有助于:
=LEN(A1)=LEN(TRIM(A1))
=EXACT(A1,TRIM(A1))
Run Code Online (Sandbox Code Playgroud)
对于VBA版本:
Function HasSpaces(rng As Excel.Range) As Boolean
HasSpaces = Not (Len(rng.Value) = Len(Trim$(rng.Value)))
End Function
Run Code Online (Sandbox Code Playgroud)
样品用法:
Sub tst()
Debug.Print HasSpaces(Range("A1"))
End Sub
Run Code Online (Sandbox Code Playgroud)