Yalnızca etkin sayfadaki tüm sondaki boşlukları kaldırmak için bir VBA kodu istiyorsanız, bu makale kesinlikle size yardımcı olacaktır. Çoğu zaman sonunda bir boşluk bıraktık ya da bazen web'den veri kopyalıyoruz ve fark etmiyoruz. Bu yazımızda, yanlışlıkla kalan boşluğu nasıl ortadan kaldıracağımızı öğreneceğiz.
Soru): Excel'de, herhangi bir metnin sonundaki boşlukları kaldırmak için SUBSTITUTE & CHAR ile TRIM işlevini kullanabiliriz, yani =TRIM(SBSTITUTE(A1,CHAR(160)," ")) ile kullanabiliriz.
Dize sonunda kalan tüm gereksiz boşlukları kaldırmama yardımcı olacak bir Makro istiyorum.
Metnin sonundaki boşluk kaldırma kodunu almak için; VB editörünü başlatmak için aşağıdaki adımları izlememiz gerekiyor.
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
Aşağıdaki kodu çalışma sayfası modülüne kopyalayın
Alt kırpma alanı()
Dim c As Range, rngConstant As Range
Hatada Devam Et Sonraki
Set rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2)
Hatada GoTo 0
rngConstants Değilse O Zaman Hiçbir Şey Değilse
'performansı optimize et
Application.ScreenUpdating = Yanlış
Application.Calculation = xlCalculationManual
'char 160 dahil hücreleri kırpın
Her c için rngConstants
c.Value = Trim$(Application.Clean(Replace(c.Value, Chr(160), " ")))
sonraki c
'Ayarları Sıfırla
Application.ScreenUpdating = Doğru
Uygulama.Hesaplama = xlHesaplamaOtomatik
Bitir
Alt Bitiş
- Bu, sonundaki tüm boşlukları kaldıracaktır.
Not: Yukarıdaki makro yalnızca etkin sayfada çalışacaktır.
Bu şekilde VBA kodunu kullanarak sondaki boşlukları kaldırabiliriz.
İndir - VBA - xlsm aracılığıyla Sondaki alanı kaldırın