Soru Hücredeki birden fazla boşluğu silme

[schlecht]

Merhaba, aşağıda ki kod ile B sütunundaki tüm boşlukları siliyorum. İhtiyacım olan birden fazla boşluk var ise tek boşluğa indirmesi.

Columns("B").Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart

örnek olarak: Ad Soyad: AdSoyad olarak yazılıyor. Ad Soyad olarak yazmak istiyorum.

 

[Haluk]

Sub Test()
    Dim xCell As Range
    For Each xCell In Range("B1:B100")
        xCell = WorksheetFunction.Trim(xCell)
    Next
End Sub

.

 

[schlecht]

Haluk Bey teşekkürler.

 

[mehmetd]

Haluk Bey bu kodu tüm sayfaya nasıl uygulayabiliriz.
Saygılarımla
İyi çalışmalar

 

[Haluk]

Haluk Bey bu kodu tüm sayfaya nasıl uygulayabiliriz.
Saygılarımla
İyi çalışmalar

Sub Test2()
    Dim xCell As Range
    For Each xCell In ActiveSheet.UsedRange
        xCell = WorksheetFunction.Trim(xCell)
    Next
End Sub

.

 

[PriveT]

Merhabalar,
Acaba bunu formülle yapabilir miyiz?

 

[çıtır]

Merhabalar,
Acaba bunu formülle yapabilir miyiz?

=kırp(a2)

deneyiniz.

 

[PriveT]

=kırp(a2)

deneyiniz.

Sayın @çıtır teşekkürler

 

[çıtır]

Sayın @çıtır teşekkürler

Rica ederim.Dönüş yaptığınız için teşekkür ederim.