Snasui Excel Forum

Posted: **Mon Aug 11, 2025 10:19 am**

จากไฟล์ที่แนบมา

Sub last_Col()
    Dim Irow As Long
    Dim lColumn As Long
    Irow = Range("F1").End(xlUp).Row + 6
    lColumn = Range("F1").End(xlToRight).Column
    Cells(Irow, lColumn).Select
End Sub

ต้องการให้โค๊ดนี้ทำงานโดยให้เป็น select เซลในแถวที่ 7 ที่ถัดจากเซลสุดท้ายของแถวที่มีข้อมูล
ต้องปรับโค๊ดอย่างไรครับ

Posted: **Mon Aug 11, 2025 1:36 pm**

การหาบรรทัดสุดท้ายที่มีข้อมูลใช้ Statement นี้ครับ Irow = Range("F" & Rows.Count).End(xlUp).Row

หากต้องการให้เป็นบรรทัดถัดไปให้บวกด้วย 1 ก็จะกลายเป็น Irow = Range("F" & Rows.Count).End(xlUp).Row + 1

ในทางคอลัมน์ก็สามารถใช้ลักษณะนี้เช่นกัน ยกตัวอย่างเช่น การเข้าถึงคอลัมน์สุดท้ายที่มีข้อมูล เขียนเป็น Cells(1,Columns.Count).End(xlToLeft).Column หากต้องการให้เป็นคอลัมน์ถัดไปหลังจากมีข้อมูลให้บวก 1 ก็จะกลายเป็น Cells(1,Columns.Count).End(xlToLeft).Column + 1

หลังจากนั้นค่อย Select โดย Statement เดิม

Snasui Excel Forum

Code VBA ให้เลือกเซลในแถวนั้นถัดจากเซลสุดท้ายที่มีข้อมูล

Code VBA ให้เลือกเซลในแถวนั้นถัดจากเซลสุดท้ายที่มีข้อมูล

Re: Code VBA ให้เลือกเซลในแถวนั้นถัดจากเซลสุดท้ายที่มีข้อมูล