Excel hücresinde soldaki boşluğu giderme hk.

[rızay]

Merhaba arkadaşlar.Benim size sorum şu: Bir excel dosyamdaki 1.sayfada A2 hücresinden A1500 hücresine kadar hücrelerde veriler bir boşlukdan sonra girilmiş. Hücrelerdeki soldaki bu boşluğu nasıl? giderebilirim.Bununla ilgili formül var mıdır? yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi ki varsın Excelwebtr.Sağ olun.

 

[Orion1]

Aşağıdaki kodları çalıştırınız.

Sub bosluk()
Dim i As Integer
For i = 2 To 1500
    Cells(i, "A").Value = LTrim(Cells(i, "A").Value)
Next i
MsgBox "Boşluklar alındı."
End Sub

 

[rızay]

Sayın Evren hoca merhaba.Cevabı aldım.Çok teşekkür ederim.
Yukarıdaki boşluk giderme aralığını A2 ile R800 arası verilere uygulamak istiyorum kod nasıl? olmalı.Yardımlarınızı bekliyorum.

 

[Orion1]

Sayın Evren hoca merhaba.Cevabı aldım.Çok teşekkür ederim.
Yukarıdaki boşluk giderme aralığını A2 ile R800 arası verilere uygulamak istiyorum kod nasıl? olmalı.Yardımlarınızı bekliyorum.

Sub bosluk()
Dim hcr As Range
Application.ScreenUpdating = False
For Each hcr In Range("A2:R800")
    hcr.Value = LTrim(hcr.Value)
Next
Application.ScreenUpdating = True
MsgBox "Soldaki boşluklar giderildi."
End Sub

 

[rızay]

Excelde hücre aralıklarında soldaki boşluğu giderme hk.

Merhaba arkadaşlar, merhaba Evren hoca. Dünkü soruma cevap aldım çok sağ olun. Sizden Allah razı olsun. Bir başka aralıkta örneğin "A2:R800" aralığında (A2'den başlamak üzere B,C,D,.....R sütununa kadar)verilerim var.Bu aralıklardaki hücrelerdeki verilerin boşluğunu gidermek için,gönderdiğiniz kodlarda nasıl? bir değişiklik yapmalıyım. Yeniden düzenleyerek tarafıma göndermenizi rica ederim.Sağolun.