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