จะค้นหาแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลใน Excel ได้อย่างไร?

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

ค้นหาแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลโดยใช้รหัส VBA
ค้นหาและเลือกแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลด้วย Kutools for Excel

ค้นหาแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลโดยใช้รหัส VBA

พวกเราส่วนใหญ่อาจพิจารณาค้นหาเซลล์สุดท้ายโดยการกด Ctrl + End เพื่อค้นหาแถวและคอลัมน์สุดท้าย แต่ปุ่มทางลัดจะไม่พบเซลล์ค่าที่ถูกต้องหากมีเซลล์บางเซลล์ที่มีการจัดรูปแบบด้านล่างช่วงข้อมูล ดังนั้นโปรดใช้รหัส VBA ต่อไปนี้:

1. เปิดใช้งานแผ่นงานของคุณซึ่งคุณต้องการกำหนดแถวหรือคอลัมน์สุดท้ายด้วยข้อมูล

2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: ค้นหาแถวสุดท้ายที่มีข้อมูล

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อบอกหมายเลขแถวของช่วงที่ใช้ ดูภาพหน้าจอ:

5. ไปที่การคลิก OK คราวนี้หมายเลขแถวสุดท้ายที่มีค่าแสดงเป็นภาพหน้าจอต่อไปนี้:

หมายเหตุ หากต้องการค้นหาคอลัมน์สุดท้ายที่มีข้อมูลโปรดใช้รหัสนี้:

รหัส VBA: ค้นหาคอลัมน์สุดท้ายที่มีข้อมูล

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

ค้นหาและเลือกแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลด้วย Kutools for Excel

ถ้าคุณต้องการค้นหาโดยตรงและเลือกแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลใน Excel ไฟล์ เลือกแถวสุดท้าย และ เลือกคอลัมน์สุดท้าย สาธารณูปโภคของ Kutools ของ Excel สามารถช่วยคุณได้. กรุณาดำเนินการดังนี้

1. หากคุณต้องการค้นหาและเลือกแถวสุดท้ายที่มีข้อมูลโปรดคลิก Kutools > เลือก > เลือกเซลล์สุดท้าย > แถวสุดท้าย. ดูภาพหน้าจอ:

หมายเหตุ: สำหรับการค้นหาและเลือกคอลัมน์สุดท้ายที่มีข้อมูลโปรดคลิก Kutools > เลือก > เลือกเซลล์สุดท้าย > คอลัมน์สุดท้าย.

จากนั้นจะพบแถวหรือคอลัมน์สุดท้ายที่มีข้อมูลในแผ่นงานปัจจุบันและเลือกทันที

การสาธิต: ค้นหาและเลือกแถวหรือคอลัมน์สุดท้ายด้วยข้อมูลด้วย Kutools สำหรับ Excel