วิธีใช้ตัวกรองเดียวกันกับแผ่นงานหลายแผ่นใน Excel

อาจเป็นเรื่องง่ายที่เราจะใช้ฟังก์ชันตัวกรองเพื่อกรองข้อมูลในแผ่นงาน แต่บางครั้งคุณอาจต้องกรองในแผ่นงานหลายแผ่นที่มีการจัดรูปแบบข้อมูลร่วมกันโดยใช้เกณฑ์การกรองเดียวกัน การกรองทีละรายการจะเสียเวลามากที่นี่ฉันสามารถแนะนำวิธีง่ายๆในการแก้ปัญหาในครั้งเดียว

ใช้ตัวกรองเดียวกันกับแผ่นงานหลายแผ่นด้วยรหัส VBA

ใช้ตัวกรองเดียวกันกับแผ่นงานหลายแผ่นด้วยรหัส VBA

ตัวอย่างเช่นฉันมีสี่แผ่นงานเนื่องจากภาพหน้าจอต่อไปนี้จะต้องถูกกรองด้วยเกณฑ์เดียวกับที่ Product = KTE พร้อมกัน

ไม่มีวิธีโดยตรงในการกรองข้อมูลในแผ่นงานหลายแผ่นใน Excel แต่รหัส VBA ต่อไปนี้สามารถช่วยให้คุณทำงานนี้ให้เสร็จได้โปรดทำดังนี้:

1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: ใช้ตัวกรองเดียวกันกับแผ่นงานหลายแผ่น:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้ผลิตภัณฑ์ทั้งหมดของ KTE ได้รับการกรองในแผ่นงานทั้งหมดพร้อมกันดูภาพหน้าจอ:

หมายเหตุ: ภายในโค้ดข้างต้นในนี้ xWs.Range ("A1") ตัวกรองอัตโนมัติ 1, "= KTE" สคริปต์ A1 และ = KTE ระบุคอลัมน์และเกณฑ์ที่คุณต้องการกรองตามหมายเลข 1 คือหมายเลขคอลัมน์ที่คุณกรองตามคุณสามารถเปลี่ยนได้ตามความต้องการของคุณ ตัวอย่างเช่นหากคุณต้องการกรองลำดับที่มากกว่า 50 คุณก็ต้องแก้ไขสคริปต์นี้ดังนี้: xWs.Range ("B1") ตัวกรองอัตโนมัติ 2, "> 50".