Sub Cleaner()
Dim Plage As Range, Cell As Range
Set Plage = Range("A2:A500")
For Each Cell In Plage
If IsNumeric(Right(Cell.Value, 1)) = True Then
If Mid(Cell.Text, Len(Cell.Text) - 1, 1) = " " Then
Cell.Value = Left(Cell.Text, Len(Cell.Text) - 2)
End If
End If
Next Cell
End Sub
Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
For i = 0 To 9: .Replace i, "": Next
End With
End Sub
Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
addr = .Address(0, 0)
For i = 0 To 9: .Replace i, "": Next
.Value = Evaluate("IF(ISTEXT(" & addr & "),LEFT(" & addr & ",FIND(""§"",SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""§"",LEN(" & addr & ")-LEN(SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""""))),1))," & addr & ")")
End With
End Sub
Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
For i = 0 To 9: .Replace i, "": Next
.Value = Evaluate("index(TRIM(" & .Address(0, 0) & "),)")
End With
End Sub