Eliminar caracteres en una celda de Excel mediante macro VBA

Hola

Me parece que una macro de este estilo sería adecuada:

Sub telefono() Dim lig As Long lig = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'última línea llena de la primera columna A ADAPTAR para otra columna For Each cell In Range("A2:A" & lig) 'ciclo sobre todas las celdas del rango que va desde A2 hasta la última línea llena A ADAPTAR para otra columna If Left(cell.Value, 5) = "tel:+" Then cell.Value = Right(cell.Value, 9) ' si los 5 primeros caracteres son tel:+ solo se retienen los 9 caracteres a la derecha Next End Sub

Saludos
Via

-- "La imaginación es más importante que el conocimiento." A. Einstein

Rebonjour,

Pequeña información adicional a mi mensaje anterior, un colega me propuso partir del final del número de teléfono y eliminar cualquier carácter que se encuentre antes del primer dígito mostrado, es decir, el noveno comenzando desde la derecha:

ejemplo: tel:+33123456789 (elimino los caracteres antes del 1).

Efectivamente, sería muy sencillo de implementar, pero me doy cuenta de que también tengo líneas donde el número de teléfono es reemplazado por una dirección de correo electrónico.

Por lo tanto, necesito poder poner una condición en mi consulta para no truncar las direcciones de correo electrónico (he pensado en una condición que diga si la celda contiene "tel+" se elimina, de lo contrario se deja, pero no sé cómo hacerlo).

Muchas gracias por su ayuda.

Désolé, je ne peux pas aider avec ça.