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

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

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

---

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

لاستخراج مراجع الخلايا من الصيغ ، قد يكون رمز VBA أدناه مفيدًا لك. الرجاء القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

رمز فبا: استخراج مراجع الخلايا من الصيغ:

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 هي الخلية التي تحتوي على الصيغة التي تريد استخراج مراجع الخلية فيها) في خلية حيث تريد الحصول على النتيجة ، ثم اضغط أدخل مفتاح ، تم استخراج جميع مراجع الخلايا من الصيغة ، انظر الصورة: