Как перечислить все формулы в Excel?
Обычно в Excel мы можем быстро отображать формулы в ячейках, но Excel не предоставляет функции для перечисления всех формул на листе. Перечисление всех формул на листе может помочь нам отслеживать значения ячеек с их настоящими формулами. Здесь я могу поговорить о создании кода VBA для решения этой проблемы.
Перечислить все формулы рабочего листа с кодом VBA
Перечислить все формулы рабочего листа с кодом VBA
Следующий код VBA поможет вам составить список формул выбора или рабочего листа, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: список всех формул рабочего листа
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона или всего листа, на котором вы хотите перечислить ячейки формулы, см. снимок экрана:
4, Затем нажмите OK, формулы в вашем выборе были сразу перечислены на новом листе перед активным листом, который содержит информацию об адресе ячейки, формуле и значении, как показано на следующем снимке экрана:
Статьи по теме:
Как преобразовать формулу в текстовую строку в Excel?
Как преобразовать текстовые строки в формулы в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!