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

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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
98
Excel Vers. ve Dili
Ms Office Excel 2021 tr
Haluk Bey bu kodu tüm sayfaya nasıl uygulayabiliriz.
Saygılarımla
İyi çalışmalar
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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
.
 
Katılım
8 Ekim 2009
Mesajlar
642
Excel Vers. ve Dili
Office 2010 & 2016 TR
Merhabalar,
Acaba bunu formülle yapabilir miyiz?
 
Üst