Seçili Hücrelerden Boşlukları Kaldırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub RemoveSpaces()
Dim myRange As Range
Dim myCell As Range
Select Case MsgBox("Bu işlem geri alınamaz! " & "Önce kayıt etmek ister misiniz?", vbYesNoCancel + vbQuestion, "UYARI")
Case Is = vbYesThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
Set myRange = Selection
For Each myCell In myRange
If Not IsEmpty(myCell) Then
myCell = Trim(myCell)
End If
Next myCell
End SubAçıklama
Excel'de fazladan kalmış boşlukları hızlı bir şekilde kaldırmak için üstteki kodu kullanabilirsiniz.Faydalanılması temennisiyle