วิธีกรองข้อมูลด้วยไฮเปอร์ลิงก์ใน Excel

ใน Excel คุณสามารถกรองข้อมูลตามข้อความตัวเลขหรือสีแบบอักษรสีพื้นหลัง แต่คุณเคยพยายามกรองข้อมูลทั้งหมดด้วยไฮเปอร์ลิงก์ในคอลัมน์ตามภาพด้านล่างนี้หรือไม่ ในบทความนี้ฉันแนะนำ VBA เพื่อกรองการเชื่อมโยงหลายมิติใน Excel อย่างรวดเร็ว

กรองข้อมูลด้วยไฮเปอร์ลิงก์

กรองข้อมูลด้วยไฮเปอร์ลิงก์

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล， คัดลอกและวางโค้ดด้านล่างลงในไฟล์ โมดูล หน้าต่าง

VBA: กรองข้อมูลด้วยไฮเปอร์ลิงก์

  Sub HyperPicker()
'UpdatebyExtendoffice20180404
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Select a column:", "Kutools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count = 0 Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3 กด F5 ปุ่มเพื่อเลือกคอลัมน์ที่จะกรอง

4 คลิก OKจะแสดงเฉพาะไฮเปอร์ลิงก์เท่านั้น