¿Cuál es la forma más rápida de reemplazar el valor en las celdas a través de VBA?

Question

Ciertas celdas de mi libro contienen el valor 'A'. Quiero reemplazar el valor 'A' por 'B'.

Se dispersan en varias hojas. ¿Cuál es la forma más eficiente de implementar el reemplazo en VBA?

Answer 1

esto funciona para mi

For Each wb In Workbooks
    For Each sh In wb.Worksheets
        sh.Cells.SpecialCells(xlCellTypeConstants).Replace What:="a", Replacement:="b", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next sh
Next wb

Todo lo que hice fue usar la grabadora de macros para grabar una operación de búsqueda y reemplazo y luego agregar los bucles.

Si no desea realizar el cambio en todos los libros abiertos, elimine el For Nextpar externo, pero pensé que esto facilitaría la ejecución de varios libros a la vez.