สูตร Excel แยก URL ออกจาก Text Link

ก่อนอื่นคงจะมีปัญหาสำหรับบางคนที่ต้องการ เอา link url ของ web ที่ copy มาวางไว้ใน excel ถ้ามีแค่ 1 หรือ 2 link ก็ไม่ใช่ปัญหา แต่ถ้าเราต้องการเอาออกทีละเป็นร้อย ๆ link ทีนี้เราจะทำยังไงให้มันง่าย มาลองดูวิธีกัน
1. ก่อนอื่น ก็เปิด Excel ขึ้นมา พร้อมทั้ง Copy  Text link มาใส่ในช่อง A1 ลงไปเรื่อย

2. จากนั้นให้กดแป้น keyboard Alt + F11 ก็จะได้หน้าต่าง Microsoft Visual Basic ตามรูปด้านล่าง

3. ตรง Sheet1 หรือ Sheet ที่เรากำลังทำงานให้กด เข้าไป แล้ว จะเห็น Book1 - Sheet1 (Code) ปรากฏ Copy Code ด้านล่างไปใส่

-------

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

--------

 4. จากนั้นก็กด F5 หรือปุ่ม Run ได้เลยครับ เดียวจะเห็น ผลที่เกิดขึ้นที่ Colume b1
มาล่ะครับ สำหรับ link url ที่แสดงออกมา

* ในตัวอย่างนี้ link url น้อย สูตรนี้เหมาะกับ link url เยอะ ๆ ที่เราไม่ต้องการมาแต่ link ออกทีละบรรทัดเพราะมันจะเยอะและเหนื่อยเอาการเลย *