Hücredeki Boşlukları Kaldır

[zafer]

Merhaba

Hücrede metin olarak başka yerden kopyalanan verileri sayıya çevirmek istiyorum veya boşlukların kaldırılmasını istiyorum. Yanlız boşluk gibide deyiller.

Aşağıdaki dosyayı incelemenizi rica ederim.


Saygılarımla,

 

[veyselemre]

Sub temizle()
For x = 2 To [a65536].End(3).Row
Cells(x, 1) = Replace(Cells(x, 1), Chr(160), "")
Next
End Sub

 

[zafer]

Merhaba

Çok Teşekkür ederim Sn. Veyselemre arkadaşım


Saygılarımla,

 

[haso_excel]

Sub bosluk_at()
Dim hcr As Range
For Each hcr In Range("A1:H" & Cells(65536, "A").End(xlUp).Row)
hcr.Value = Replace(hcr.Value, " ", "")
Next
End Sub

Ben bu kod ile a kolonunun son hücresi ile h kolonunun son hücresindeki verilerin boşluklarını kaldırıyorum. Peki tüm sheet için ne yapmam gerekiyor ?