Как извлечь ссылку на ячейку из формул в 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, все ссылки на ячейки были извлечены из формулы, см. снимок экрана: