วิธีแยกชื่อโดเมนจาก URL ใน Excel
หากคุณต้องจัดการกับ URL จำนวนมากในสมุดงานของคุณอยู่เสมอบางครั้งคุณอาจต้องการแยกเฉพาะชื่อโดเมนจากแต่ละหน้าเว็บ ใน Excel คุณจะรับชื่อโดเมนจาก URL ได้อย่างไร?
แยกชื่อโดเมนจาก URL ด้วย User Defined Function
แยกชื่อโดเมนจาก URL ด้วยสูตร
สูตรยาวต่อไปนี้สามารถช่วยให้คุณส่งคืนชื่อโดเมนจากหน้าเว็บได้ตามที่คุณต้องการ กรุณาดำเนินการดังต่อไปนี้:
1. ในเซลล์ว่างที่อยู่ถัดจากเซลล์หน้าเว็บของคุณให้ป้อนสูตรต่อไปนี้ในตัวอย่างนี้ฉันจะพิมพ์สูตรในเซลล์ B2: =IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND("//",A2)+2,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("//",A2)-2)).
หมายเหตุ: ในสูตรข้างต้น A2 ระบุเซลล์ที่มีหน้าเว็บที่คุณต้องการรับชื่อโดเมนคุณสามารถเปลี่ยนได้ตามต้องการ
2. จากนั้นกด เข้าสู่ และเลือกเซลล์ B2 ลากที่จับเติมลงไปที่ช่วงที่คุณต้องการใช้สูตรนี้และชื่อโดเมนทั้งหมดจะถูกแยกออกจากแต่ละ URL ดูภาพหน้าจอ:
แยกชื่อโดเมนจาก URL ด้วย User Defined Function
หากคุณสนใจรหัส VBA คุณสามารถสร้างไฟล์ ฟังก์ชันที่ผู้ใช้กำหนด เพื่อแยกชื่อโดเมนจาก URL
1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล
รหัส VBA: แยกชื่อโดเมนจาก URL
Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
If InStr(URL, "//") Then
URL = Mid(URL, InStr(URL, "//") + 2)
End If
If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
URL = Mid(URL, 5)
End If
ExtractDomain = Split(URL, "/")(0)
End Function
3. จากนั้นบันทึกและปิดรหัสกลับไปที่แผ่นงานแล้วป้อนสูตรนี้ = Extractdomain (A2) ลงในเซลล์ว่างนอกเหนือจากหน้าเว็บดูภาพหน้าจอ:
4. จากนั้นกด เข้าสู่ เลือกเซลล์ B2 แล้วลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการมีสูตรนี้จากนั้นชื่อโดเมนทั้งหมดจะถูกแยกออกจากเซลล์ของหน้าเว็บแต่ละเซลล์
บทความที่เกี่ยวข้อง:
วิธีแยกโดเมนจากที่อยู่อีเมลหลายรายการใน Excel
วิธีแยกที่อยู่อีเมลจากสตริงข้อความอย่างรวดเร็ว?
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
