Как выбрать на листе все ячейки, содержащие формулы?
Если на листе есть ячейки разных типов — с формулами, текстом, числами и т.д., а вам нужно выделить только те, что содержат формулы (на всём листе или в выбранном диапазоне), как это сделать в Excel? Ниже вы найдёте несколько быстрых способов, которые легко справятся с этой задачей.
Выбор всех ячеек с формулами с помощью функции «Перейти»
Выделение всех ячеек с формулами с помощью VBA
Выбор всех ячеек с формулами с помощью функции «Перейти»
В Excel вы можете воспользоваться функцией «Перейти», чтобы быстро выделить ячейки с формулами на листе или в выбранном диапазоне.
1. Нажмите одновременно Ctrl + G, чтобы открыть диалоговое окно «Перейти», затем нажмите кнопку «Выделить». См. снимок экрана:
2. Установите флажок напротив пункта «Формулы», затем нажмите кнопку «OK», чтобы закрыть диалоговое окно. См. снимок экрана:
Теперь все ячейки, содержащие формулы, выделены на листе.
Совет:
1. Если вы хотите выбрать ячейки с формулами только в определённом диапазоне, сначала выделите этот диапазон, а затем воспользуйтесь функцией «Перейти».
2. На шаге 2 вы можете задать дополнительные параметры для выбора типа формулы, например только ячеек с ошибками в формулах.
Выделение всех ячеек с формулами с помощью VBA
Существует также код VBA, который позволяет выделить цветом все ячейки, содержащие формулы, в заданном диапазоне или на всём листе.
1. Нажмите сочетание клавиш Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт «Модуль» → «Вставить», чтобы добавить новое окно «Модуль», и скопируйте в него приведённый ниже код VBA.
VBA: выделение всех ячеек, содержащих формулы.
Sub SelectFormulaCells()
'Updateby20140827
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas, 23)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите кнопку «Выполнить», после чего появится диалоговое окно KutoolsforExcel, предлагающее выбрать диапазон. См. снимок экрана:
4. Нажмите кнопку «OK». Все ячейки с формулами будут выделены цветом.
Совет: в приведённом выше коде VBA вы можете изменить число, чтобы задать нужный цвет выделения строки в строке Rng.Interior.ColorIndex = 36.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек