удаление пробела / таба из ячейки

[Bape}l{ka]

подскажите пожалуйста, как сделать так, чтоб если в ячейке есть пробел или таб и больше ничего, то очистить такие ячейки.. т.е если в ячейке текст, то там ничего не должно меняться

[EducatedFool]

Sub Замена()
    Application.DisplayAlerts = False
    Cells.Replace vbTab, "", xlWhole
    Cells.Replace " ", "", xlWhole
    Application.DisplayAlerts = True
End Sub

[Bape}l{ka]

ха! ларчик просто открывался!
а я-то все никак до конца не могла уяснить разницу между xlWhole и xlPart
спасибо)))

[Bape}l{ka]

хм.. а если у меня например не один пробел в ячейке, а несколько?? тогда ваш не работает если только каждый случай перебрать...

пыталась изобразить что-то типа:

Sub DelSpaceTab()
For i = 1 To 5
    Soob = " "
    Selection.Cells.Replace Soob, "", xlWhole
    Soob = Soob & " "

    SoobAdd = vbTab
    Selection.Cells.Replace SoobAdd, "", xlWhole
    SoobAdd = SoobAdd & vbTab
Next i
SoobAdd = ""
Soob = ""
End Sub

конечно криво, но все-равно не работает... не соединяет он пробелы вместе

[motorway]

If (Trim([a1]) = "") Then [a1] = ""

[RAN.]

А может так?

If Len(Trim(Replace(ActiveCell, vbTab, ""))) = 0 Then
ActiveCell = Trim(Replace(ActiveCell, vbTab, ""))
End If

[EducatedFool]

Сообщение от RAN.

А может так?

If Len(Trim(Replace(ActiveCell, vbTab, ""))) = 0 Then
ActiveCell = Trim(Replace(ActiveCell, vbTab, ""))
End If

Не проще ли так?

If Len(Trim(Replace(ActiveCell, vbTab, ""))) = 0 Then ActiveCell=""

[RAN.]

Логично!
Сам себя перехитрил!