มีปัญหาที่จะคอลัม ถึงคอลัมรองสุดท้ายครับ

[nutpochan]

ผมต้องการ โค้ด copy จาก

Code: Select all

Range("A5:D5").Select   

ถึง

Code: Select all

Range(Selection, Selection.End(xlDown)).Select

แต่ผมไม่อยากได้ ผลรวมทั้งหมดบรรทัดสุดท้ายผมควรเพิ่มสูตรมาอย่างไรครับ
ผมหมายถึง ผมต้องการcopy A5:D22 แต่มันเฉพาะเจาะจงไม่ได้ เพราะข้อมูลเปลี่ยนไปทุกวัน
จึงหมายถึงจะcopyข้อมูลจาก A5:D5 จนถึงบรรทัด รอง สุดท้ายได้อย่างไร ครับ

Code: Select all

    Range("A5:D5").Select
   [color=#FF0040] Range(Selection, Selection.End(xlDown)).Select[/color]
    Selection.Copy
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    Range("L2").Select
    ActiveSheet.Paste

โคดที่เป็น สี เป็นโค๊ดที่มีปันญาครับ เพราะมันดันเลื่อนมาล่างสุดแต่ ที่ผมต้องการคือรองสุดท้าย

[snasui]

กรณีบรรทัดสุดท้ายเป็นยอดรวม และต้องการที่จะเลือกข้อมูลโดยไม่รวมบรรทัดสุดท้าย สามารถเขียนเป็น
Range(Selection, Selection.End(xlDown).offset(-1,0)).Select

อย่าลืมกลับไปรายงานผลในกระทู้นี้ด้วย viewtopic.php?f=3&t=6700 ว่าได้ผลหรือไม่ อย่างไร ตามกฎการใช้บอร์ดข้อ 6 ด้านบนครับ