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

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
172
Beğeniler
3
Excel Vers. ve Dili
2009
#1
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,968
Beğeniler
421
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#2
Kod:
Sub Test()
    Dim xCell As Range
    For Each xCell In Range("B1:B100")
        xCell = WorksheetFunction.Trim(xCell)
    Next
End Sub
.
 

mehmetd

Altın Üye
Katılım
15 Ekim 2004
Mesajlar
18
Beğeniler
0
Excel Vers. ve Dili
Ms Office Excel 2016 tr
#4
Haluk Bey bu kodu tüm sayfaya nasıl uygulayabiliriz.
Saygılarımla
İyi çalışmalar
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,968
Beğeniler
421
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#5
Haluk Bey bu kodu tüm sayfaya nasıl uygulayabiliriz.
Saygılarımla
İyi çalışmalar

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