จะค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองใน Excel ได้อย่างไร
ในบางกรณีคุณอาจต้องรับค่าของเซลล์แรกที่มองเห็นได้ในรายการที่กรองแล้ว จะบรรลุได้อย่างไร? บทความนี้จะแสดงวิธีการแก้ปัญหา
ค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองด้วยสูตรอาร์เรย์
ค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองด้วย VBA
ค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองด้วยสูตรอาร์เรย์
คุณสามารถใช้สูตรอาร์เรย์ต่อไปนี้ในการดึงค่าของเซลล์แรกที่มองเห็นได้ในรายการที่ถูกกรอง โปรดทำดังต่อไปนี้
1. เลือกเซลล์ว่างสำหรับวางค่าแรกที่มองเห็นได้จากนั้นป้อนสูตรด้านล่างลงไปจากนั้นกดปุ่ม Ctrl + เปลี่ยน + เข้าสู่ คีย์พร้อมกัน
=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
หมายเหตุ: ในสูตร C2: C19 คือรายการกรองที่คุณต้องการส่งคืนค่าเซลล์แรกที่มองเห็นได้ C2 คือเซลล์แรกของรายการ คุณสามารถเปลี่ยนได้ตามต้องการ
จากนั้นคุณจะเห็นค่าของเซลล์แรกที่มองเห็นได้ในรายการที่กรองแล้วซึ่งเติมในเซลล์ที่เลือกตามภาพด้านบนที่แสดง
ค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองด้วย VBA
นอกจากการใช้สูตรอาร์เรย์ด้านบนเพื่อรับค่าของเซลล์ที่มองเห็นได้เซลล์แรกในรายการที่กรองแล้ว คุณยังสามารถเรียกใช้สคริปต์ VBA ด้านล่างเพื่อส่งคืนเซลล์ที่มองเห็นได้เซลล์แรกของรายการที่ถูกกรองได้อย่างรวดเร็ว โปรดดำเนินการดังต่อไปนี้
1. เลือกเซลล์ว่างเช่น E8 สำหรับวางค่าเซลล์แรกที่มองเห็นได้ของรายการที่กรอง
2 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
3 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: ค้นหาและรับค่าของเซลล์แรกที่มองเห็นได้หลังจากกรองใน Excel
Sub FirstVisibleCell()
With Worksheets("Sheet1").AutoFilter.Range
ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
End With
End Sub
หมายเหตุ: ในรหัส Sheet1 คือชื่อแผ่นงานที่มีรายการที่กรอง “ C” คือชื่อคอลัมน์ที่คุณต้องการรับค่าแรกที่มองเห็นได้ คุณสามารถเปลี่ยนได้ตามต้องการ
4 กด F5 เพื่อเรียกใช้รหัสจากนั้นเซลล์แรกที่มองเห็นได้ของรายการที่กรองซึ่งอยู่ในคอลัมน์ C จะถูกเติมลงในเซลล์ E8 ทันที
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!