วิธีแยกการอ้างอิงเซลล์จากสูตรใน 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 คือเซลล์ที่มีสูตรที่คุณต้องการแยกการอ้างอิงเซลล์) ลงในเซลล์ที่คุณต้องการรับผลลัพธ์จากนั้นกด เข้าสู่ สำคัญการอ้างอิงเซลล์ทั้งหมดถูกแยกออกจากสูตรดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
