Как извлечь ссылку на ячейку из формул в Excel?
Предположим, у вас есть несколько длинных формул, и теперь вы хотите извлечь все ссылки на ячейки из формул, как показано на следующем снимке экрана. Как можно как можно быстрее извлечь ссылки на ячейки из формул?
Извлечение ссылок на ячейки из формул с помощью функции, определяемой пользователем
Извлечение ссылок на ячейки из формул с помощью функции, определяемой пользователем
Чтобы извлечь ссылки на ячейки из формул, приведенный ниже код VBA может оказать вам услугу. Пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: извлечение ссылок на ячейки из формул:
Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
Dim xRetList As Object
Dim xRegEx As Object
Dim I As Long
Dim xRet As String
Application.Volatile
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
.Global = True
.MultiLine = True
.IgnoreCase = False
End With
Set xRetList = xRegEx.Execute(Rg.Formula)
If xRetList.Count > 0 Then
For I = 0 To xRetList.Count - 1
xRet = xRet & xRetList.Item(I) & ", "
Next
ExtractCellRefs = Left(xRet, Len(xRet) - 2)
Else
ExtractCellRefs = "No Matches"
End If
End Function
3. После вставки кода сохраните код, вернитесь на рабочий лист и введите эту формулу: = extractcellrefs (G2) (G2 - это ячейка, содержащая формулу, ссылки на которую вы хотите извлечь) в ячейку, в которой вы хотите получить результат, а затем нажмите Enter key, все ссылки на ячейки были извлечены из формулы, см. снимок экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
