เลือก cell โดยอ้างอิงจากตำแหน่ง last use cell

[sosadboy]

ผมต้องการเลือกตำแหน่ง cell ถัดจากบรรทัดสุดท้ายของตารางลงไป 2 Cell ครับ ผมต้องเพิ่มเติม Code อย่างไรครับ ตอนนี้ทำได้แค่หาตำแหน่งบรรทัดสุดท้ายของตาราง พยายามหาแล้วต่อ Code ไม่ได้สักทีครับ ตามไฟล์แบบต้องการเลือกตำแหน่ง cell ที่ระบายสีแดงครับ ฉนกำในไฟล์ครับ มี Module เดียวครับ

[sosadboy]

โค๊ดที่หาเซลล์สุดท้ายของตาราง ผมใช้ตามนี้ครับ

Code: Select all

Sub GotoRedcells()
    Range("A5000").End(xlUp).Select
   'ติดที่ต่อจากนี้จะอ้างอิงอย่างไร เพื่อเลือกเซลล์ที่อยู่ถัดลงไป 2 เซลล์ครับ
End Sub

ที่ต้องอ้างอิง last cell เพราะ last cell ของตารางจะไม่ใช่ตำแหน่งเดิมเสมอ ในไฟล์ที่ใช้งานจริง
ฝากผู้รู้ทุกท่านช่วยแนะนำด้วยครับ

[snasui]

การเลือกเซลล์ที่อยู่ถัดไปด้านล่าง 2 เซลล์ของค่าบรรทัดสุดท้ายคือ Statement นี้ครับ Range("A5000").End(xlUp).Offset(2,0).Select

[sosadboy]

ขอบคุณ อาจารย์มากครับ คิดอยู่ว่าต้องใช้ offset แต่เขียน statement ไม่ถูกเองพอไปรันเลยไม่ได้ผลตามที่ตัวเองต้องการ ขอบคุณมากๆครับ เอาไปปรับใช้กับงานอื่นได้มากเลยครับ