Soru başlangıç boşluklarını silme

[incsoft]

Arkadaşlar bir programdan excel'e aktarma yaptığımda yazıların başlarında bazen 1, bazen 2 bazende 5 vb.. karakter boşluk yapmaktadır. Amacım her ne kadar boşluk varsa bunları otomatik olarak macro ile sildirmek olacaktır. CTRL+H ile boşluk sayı kadar araştırıp boşluk olarak değiştir dediğimde ortalardaki boşluklarıda siliyor. Bunu nasıl yapabilirim?

Ekte örnek vardır.

Teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyebilirsiniz. KIRP formülün makro karşılığıdır. Makro kullanmadan formülle de yapabilirsiniz.

Sub kod()
Set alan = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
dz = alan
For a = LBound(dz) To UBound(dz)
    dz(a, 1) = WorksheetFunction.Trim(dz(a, 1))
Next
alan.Value = dz
End Sub

 

[incsoft]

Merhaba,
Aşağıdaki kodu deneyebilirsiniz. KIRP formülün makro karşılığıdır. Makro kullanmadan formülle de yapabilirsiniz.

Sub kod()
Set alan = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
dz = alan
For a = LBound(dz) To UBound(dz)
    dz(a, 1) = WorksheetFunction.Trim(dz(a, 1))
Next
alan.Value = dz
End Sub

Teşekkürler hocam