Búsqueda y sustitución de texto en comentarios (Microsoft Excel)
Gerry tiene un libro de trabajo que contiene 22 hojas de trabajo. Cada hoja de trabajo tiene alrededor de 20 comentarios. Algunos de los comentarios hacen referencia a una división de la empresa.
Le gustaría hacer una búsqueda masiva y reemplazar los comentarios para encontrar cada referencia (por ejemplo, «División ABC») y reemplazarla con otra cosa (por ejemplo, «subsidiaria XYZ»).
No hay forma de hacer esto sin usar una macro. Las capacidades normales de Buscar y Reemplazar en Excel no le permiten buscar texto dentro de los comentarios, pero puede usar comandos de macro. La siguiente es una macro simple para hacer el reemplazo:
Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim sCmt As String sFind = "ABC Division" sReplace = "XYZ subidiary" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) <> 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If Next Next Set wks = Nothing Set cmt = Nothing End Sub
Las líneas clave aquí son las que establecen las variables sFind y sReplace.
Debe configurarlos para que reflejen lo que está buscando y con lo que desea reemplazarlo, respectivamente. La macro recorre cada comentario en cada hoja de trabajo del libro de trabajo actual y realiza los cambios en cualquier lugar donde se encuentren.
_Nota: _
Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.
link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador]
.
ExcelTips es su fuente de formación rentable en Microsoft Excel.
Este consejo (3534) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:
link: / excelribbon-Finding_and_Replacing_Text_in_Comments [Encontrar y reemplazar texto en comentarios]
.