Page 1 of 1

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

Posted: Mon May 12, 2014 2:42 am
by 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
โคดที่เป็น สี เป็นโค๊ดที่มีปันญาครับ เพราะมันดันเลื่อนมาล่างสุดแต่ ที่ผมต้องการคือรองสุดท้าย

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

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

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