Cümle sonundaki boşluğu silme

[Mesafe]

Excel bir sütunda hücreler içerisinde cümleler yazılı bazı cümle sonu kelimenin bitiminde bir boşluk oluyor (verinin alındığı programdan gelen), bu son boşluğu silebilecek bir makro için yardım rica ediyorum.
Teşekkürler

 

[YUSUF44]

Genelde bu boşluk olarak görünen karakterler gerçek boşluk olmaz ama belirttiğiniz gibiyse A1^deki verinin boşluksuz halini aşağıdaki formülle B1'e alabilirsiniz:

=KIRP(A1)

 

[Mesafe]

Genelde bu boşluk olarak görünen karakterler gerçek boşluk olmaz ama belirttiğiniz gibiyse A1^deki verinin boşluksuz halini aşağıdaki formülle B1'e alabilirsiniz:

=KIRP(A1)

Evet bu formül işe yarıyor, ama aynı sütun içerisinde bunu yapabilecek bir macro çok daha işime yarayacak, ilginize teşekkür ederim.

 

[ÖmerFaruk]

Sub SütunTrim()
Dim hcr As Range
    For Each hcr In Range("A1:A10")
        hcr = Trim(hcr)
    Next hcr
End Sub

 

[YUSUF44]

Aşağıdaki makro A sütunundaki hücrelerde belirtilen işlemi yapar:

Sub temizle()
Dim ducre As Range
Dim son As Integer
son = Cells(Rows.Count, "A").End(3).Row
For Each hucre In Range("A1:A" & son)
    hucre.Value = Trim(hucre.Value)
Next
End Sub

 

[Haluk]

Döngü kullanmadan yapmak için alternatif;

Sub Test()
    Range("A1:A1000").Value = Application.Trim(Range("A1:A1000").Value)
End Sub

.

 

[Seyit Tiken]

Alternatif : Yaptığım denemede iş gördü, bu biraz daha kısa.

[a1:a100].Replace " ", Replacement:=""

 

[YUSUF44]

Alternatif : Yaptığım denemede iş gördü, bu biraz daha kısa.

[a1:a100].Replace " ", Replacement:=""

Yalnız bu muhtemelen hücre içindeki tüm boşlukları kaldırır. Eğer gerekli boşluklar varsa silinmesine neden olur.

 

[Seyit Tiken]

Yusuf bey olabilir, ben tek kelimede denemiştim.

 

[Mesafe]

Aşağıdaki makro A sütunundaki hücrelerde belirtilen işlemi yapar:

Sub temizle()
Dim ducre As Range
Dim son As Integer
son = Cells(Rows.Count, "A").End(3).Row
For Each hucre In Range("A1:A" & son)
    hucre.Value = Trim(hucre.Value)
Next
End Sub

Bu makro işimi görüyor, yardımlarınız için teşekkürler.