Допустим, я набираю «ABC» в ячейке A1 (ABC, за которым следует пробел).Любая из этих формул должна помочь:
=LEN(A1)=LEN(TRIM(A1))
=EXACT(A1,TRIM(A1))
Для версии VBA:
Function HasSpaces(rng As Excel.Range) As Boolean
HasSpaces = Not (Len(rng.Value) = Len(Trim$(rng.Value)))
End Function
Пример использования:
Sub tst()
Debug.Print HasSpaces(Range("A1"))
End Sub