Excel - Buscar y reemplazar un rango
Problema
¿Quiero encontrar y reemplazar un rango de valores en Excel?
¿Alguien puede decirme si esto es posible?
Solución
Tengo esto en mi proyecto pero puedo reemplazar un rango de celda.
Sub ChgInfo () Dim WS As Worksheet Dim Search Como String Dim Replacement como String Dim Preguntar como String Dim Título As String Dim MatchCase As Boolean MsgBox "Esta opción afecta a toda la hoja de cálculo. Se crea para cambiar el ADM. PERSONAL, PI / PD NOMBRE o Solo PROYECTO TÍTULO. "& VbCrLf &" Para obtener más información, consulte: SOP Matriz Informes de Proyectos ", vbExclamation + vbOKOnly, " Leer antes "Prompt =" ¿Cuál es el valor original que desea reemplazar? " Título = "Entrada de valor de búsqueda" Búsqueda = Cuadro de entrada (Solicitud, Título) Pregunta = "¿Cuál es el valor de reemplazo?" Título = "Entrada de valor de búsqueda" Reemplazo = InputBox (Solicitud, Título) Para cada WS En las hojas de trabajo WS.Cells.Replace What: = Search, Replacement: = Replacement, _ LookAt: = xlPart, MatchCase: = False Next End Sub
Nota
Gracias a Castellano por este consejo en el foro.