[Hola Macro Sub quitacaracter() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row cadena = Cells(i, 1) If InStr(1, Mid(cadena, 1, 2), "DE") Then spr = Mid(cadena, 3, Left(Len(cadena), 2)): Cells(i, 1) = spr Else Cells(i, 1) = cadena End If Next i...