Delete Last Character in column

Sub DeleteLastChar()

‘ Delete last character in each cell for the first column

    totalrows = ActiveSheet.UsedRange.Rows.Count
    For Row = totalrows To 2 Step -1
    
    If Cells(Row, 1).Value <> “” Then
        Cells(Row, 1).Value = Left(Cells(Row, 1).Value, Len(Cells(Row, 1).Value) – 1)
    End If
    
    Next Row
End Sub

Leave a Reply