Hücre içindeki metni sola yanaştırmak

[Beytur35]

Arkadaşlar, aşağıda örnek dosyada görüldüğü gibi, isimler hücre içine girilirken el ile üç kez boşluk bırakıldıktan sonra yazılmış. Makro ile bu isimleri sola yanaşık olarak yazmamız mümkün müdür? Teşekkürler

 

[Ziynettin]

Merhaba,

Sub Beytur()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 1) = Trim(Cells(i, 1))
Next i
End Sub

 

[uzmanamele]

Merhaba

Bul ve değiştir ile yapmak varken neden makro?

Meraklısına örnek kod.

Sub bul_degistir()

    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[Beytur35]

Sayın Uzmanamele ve Sayın tasmed

Her iki kod da başarılı bir şekilde çalışıyor. Teşekkür ederim. Sayın Uzmanamele sizin vermiş olduğunuz kodu ben hücre içindeki metini değiştirmek için kullanıyorum. Bu kodu, hem metini değiştir hem de sola yasla şekli ile kullanabilir miyiz? Aşağıda kodu kullandığım hali.

Sub bul()

Cells.Replace What:="Sonuç", Replacement:="Toplam", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub