วิธีแยกการอ้างอิงเซลล์จากสูตรใน Excel

สมมติว่าคุณมีสูตรยาว ๆ และตอนนี้คุณต้องการแยกการอ้างอิงเซลล์ทั้งหมดจากสูตรดังภาพหน้าจอต่อไปนี้ คุณจะแยกการอ้างอิงเซลล์จากสูตรให้เร็วที่สุดได้อย่างไร?

แยกการอ้างอิงเซลล์จากสูตรด้วย User Defined Function

---

แยกการอ้างอิงเซลล์จากสูตรด้วย User Defined Function

หากต้องการแยกการอ้างอิงเซลล์จากสูตรคุณสามารถใช้โค้ด 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 คือเซลล์ที่มีสูตรที่คุณต้องการแยกการอ้างอิงเซลล์) ลงในเซลล์ที่คุณต้องการรับผลลัพธ์จากนั้นกด เข้าสู่ สำคัญการอ้างอิงเซลล์ทั้งหมดถูกแยกออกจากสูตรดูภาพหน้าจอ: