Нужно выбрать все ячейки в рабочей книге, чтобы заменить все = на ####

Мне нужен код Excel VBA для выбора всех ячеек в моей книге (не на листе). Существует множество листов («Имя»). Ячейки, но я не вижу простого способа для всех ячеек в книге. Мне нужно заменить все «=» в ячейках книги на «####». Спасибо за помощь


excel replace formulas cells
person Omar Castillo    schedule 25.04.2013    source источник
comment
Почему ВБА? Почему нет встроенной функции «Найти и заменить»?   -  person Siddharth Rout    schedule 25.04.2013

Ответы (1)


arrow_upward
2
arrow_downward

Решение VBA

Option Explicit

Sub ReplaceAllValues()

    Dim TheSheet        As Worksheet
    Dim MatchCase       As Boolean


    For Each TheSheet In Worksheets
        TheSheet.Cells.Replace _
            What:="=", _
            Replacement:="####", _
            LookAt:=xlPart, _
            MatchCase:=False
    Next

End Sub
  • Alt + F11 открывает редактор VB
  • Меню Вставка -> Модуль
  • Введите ваш код
  • Сохраните код (Excel с поддержкой макросов)
  • Нажмите F5 (или меню Run -> Run Sub/Userform)

Встроенное решение для замены

И если вы хотите использовать встроенный поиск и замену: введите описание изображения здесь

если у вас есть, например. =a1+b1 и вы хотите заменить даже это на ####a1+b1, тогда не забудьте снять флажок «Соответствовать всему содержимому ячейки».

person MrSimpleMind    schedule 25.04.2013