كيفية استخراج مراجع الخلايا من الصيغ في Excel؟

لنفترض أن لديك بعض الصيغ الطويلة، والآن تريد استخراج جميع مراجع الخلايا من هذه الصيغ كما هو موضح في لقطة الشاشة التالية. كيف يمكنك استخراج مراجع الخلايا من الصيغ بسرعة قدر الإمكان؟

استخراج مراجع الخلايا من الصيغ باستخدام دالة معرفة من قبل المستخدم

استخراج مراجع الخلايا من الصيغ باستخدام دالة معرفة من قبل المستخدم

للاستخراج مراجع الخلايا من الصيغ، قد يساعدك الكود التالي المكتوب بلغة VBA. الرجاء اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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، وسيتم استخراج جميع مراجع الخلايا من الصيغة، كما هو موضح في لقطة الشاشة: