Sub Макрос1()
For i = 1 To 10
If Right(Range("A" & i).Value, 1) = Chr(10) Then
Range("A" & i).Value = Left(Range("A" & i), InStrRev(Range("A" & i).Value, Chr(10)) - 1)
End If
Next i
End Sub

Sub Макрос1()
For i = 1 To 10 ' строка
For j = 1 To 10 ' столбец
If Right(Cells(i, j).Value, 1) = Chr(10) Then
Cells(i, j).Value = Left(Cells(i, j), InStrRev(Cells(i, j).Value, Chr(10)) - 1)
End If
Next i
Next j
End Sub

Sub Макрос1()
For j = 1 To 10 ' столбец
For i = 1 To 10 ' строка
If Right(Cells(i, j).Value, 1) = Chr(10) Then
Cells(i, j).Value = Left(Cells(i, j), InStrRev(Cells(i, j).Value, Chr(10)) - 1)
End If
Next i
Next j
End Sub