Hücre Sonunda (-) Karakteri silme

[aksoy53]

Ekteki dosyada kitap isimleri bulunmaktadır sadece hücre sonunda olan (-) karakterini silmek istiyorum. Orta yerlerde olanlar kalacak eğer son karakterde (-) varsa silecek ortada olan silinmeyecek .

Bu konuda yardımci olursanız memnun olurum.

 

[askm]

Eğer(sağdan(a1;1)="-";parçaal(a1;1;uzunluk(a1)-1);a1)

 

[askm]

Makro ile yapacaksanız da.

Sub Askm_Sondan_Sil()
Application.ScreenUpdating = False
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To SonSat
    If Right(Cells(i, 1), 1) = "-" Then
        Cells(i, 1) = Mid(Cells(i, 1), 1, Len(Cells(i, 1)) - 1)
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbInformation, "ASKM"
End Sub

 

[aksoy53]

Çok teşekkür ederim.