2014-10-30

Reemplazar texto entre dos caracteres en Excel

Title Vamos a ver dos modos de reemplazar texto entre dos caracteres en Excel. En nuestro ejemplo entre dos paréntesis.

Sin VBA

Usando el cuadro de diálogo de Buscar y reemplazar:

1. En la pestaña Inicio, en el grupo Edición, clic en Buscar y seleccionamos reemplazar. O Ctrl+F.
2. En Buscar: escribimos (*) y en Reemplazar con: el nuevo texto o lo dejamos vacío para eliminar en lugar de sustituir.

Para reemplazar solamente en rangos no contiguos, las seleccionamos manteniendo la tecla control presionada y seguimos el procedimiento anterior.

Con VBA

Eliminamos el texto entre paréntesis. Mediante el cuadro de diálogo podemos seleccionar rangos no contiguos manteniendo presionada la tecla control o tecleando ; después de cada rango. Para reemplazar el texto, escribimos el nuevo texto en Replacement (equivalente al Reemplazar con del cuadro de diálogo de Buscar y reemplazar).

' Todas las celdas de la hoha
Sub Reemplazar()
    Cells.Replace What:="(*)", Replacement:="", LookAt:=xlPart
End Sub
' Rango seleccionado
Sub Reemplazar2()
    Selection.Replace What:="(*)", Replacement:="", LookAt:=xlPart
End Sub
' Mediante cuadro de diálogo
Sub Reemplazar3()
    On Error Resume Next
    Dim myRange As Range
    Set myRange = Application.InputBox(Prompt:="Texto reemplazado: (*)", _
    Type:=8)
    myRange.Replace What:="(*)", Replacement:="", LookAt:=xlPart
    On Error GoTo 0
End Sub

No hay comentarios:

Publicar un comentario

Nube de datos