Rakamların sonundaki boşlukların kaldırılması

[Mesafe]

Bir program çıktısı olarak gelen dosyada metin formatında altı rakamdan oluşan bir sütun var ancak burada rakamların sonlarında yedi tanede boşluk var, bu sütundaki rakamları Ctrl F ile arama yaptığımda bu boşluklar sebebiyle bulamıyorum.
Sutunun formatını değiştirmeden bu boşluklardan kurtulabilirmiyiz.

 

[Mahir64]

Merhaba,
İlgili alanı seçiniz
CTRL H ile aranan değer "boşluk bırakın" yeni değer girmeden tümünü değiştir ile kaldırabilirsiniz.

 

[asi_kral]

Merhaba
1. Yol
Ctrl+H yapın aranan değere boşluk bırakın 1 kez ve tümünü değiştir deyin. Sonuçları gözlemleyin.
2. Yol
G2 hücresine

=KIRP(F2)

Bu formülü yazın ve aşağıya doğru çekerek çoğaltın.

 

[Mahir64]

Sayıya çevirmeden,

=+YERİNEKOY(F2;" ";"")

bu şekilde de olabilir.

 

[Mesafe]

Değerli hocalarım cevaplarınız için çok teşekkür ederim.
Acaba, KIRP veya YERİNEKOY formülünden birini makro ile kendi sütununda uygulamak mümkün olur mu ?
Yanlız burda şöylede bir şey var KALIP NO sütununun nerede geleceği belli olmuyor farklı sütunlarda gelebiliyor ama her zaman birinci satırda KALIP NO yazıyor. Buradan bulup altındaki tüm sayılara uygulayabilir mi ?

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub boşluk_at()
Dim STN As Long, STR As Long, VR As Variant
With WorksheetFunction
STN = .Match("KALIP NO", Rows(1), 0)
For STR = 2 To Cells(Rows.Count, STN).End(xlUp).Row
VR = .Trim(Cells(STR, STN))
Cells(STR, STN).NumberFormat = "@"
Cells(STR, STN) = VR
Next
End With
End Sub

 

[Mesafe]

Hocam, çok teşekkür ederim. Harika oldu. Allah razı olsun

 

[asi_kral]

Hocam, çok teşekkür ederim. Harika oldu. Allah razı olsun

Kolay Gelsin.