sayıların başındaki boşluğu makro ile nasıl kaldırırız

[ayder12]

sayıların başındaki boşluğu makro ile nasıl kaldırırız
örnek
-54547878
-olduğu yer boşluk

 

[Ömer]

Merhaba,

Sub Deneme()
    Columns("A:A").Replace Chr(160), ""
End Sub

Denermisiniz..

.

 

[1Al2Ver]

Merhaba,

Arşivimde aşağıdaki gibi bir kod var, A sütununda çalışır, dosyanıza göre düzenleyebilirsiniz,

Sub boslukat()
Dim sonsat As Long, i As Long
'A sütununda ki verilerin birinci satırdan başlayarak başındaki boşluk karakterlerini atar.
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sonsat
If Left(Cells(i, "A").Value, 1) = " " Then
Cells(i, "A").Value = WorksheetFunction.Trim(Cells(i, "A").Value)
End If
Next
MsgBox "Başlardaki boşluklar atıldı.", vbOKOnly
End Sub

 

[Ali]

Alternatif

Sub boşluksil()
sonsatir = Range("A65536").End(xlUp).Row
For i = 1 To sonsatir
Cells(i, 1) = Trim(WorksheetFunction.Substitute(Cells(i, 1), Chr(160), ""))
Next
End Sub

 

[ayder12]

Teşekkürler arkadaşlar