Copy ข้อมูลจาก 1จุดเป็นหลายจุด

[nurak]

ต้องการ Copy ข้อมูลโดยใช้มาโคร ครับ

[snasui]

เขียน Code มาก่อน ติดแล้วค่อยถามกันครับ

[nurak]

ปกติบันทึกมาโครเอาครับ แต่แบบนี้ไม่เคยเขียนเลย เลยไม่รู้จะเริ่มอย่างไรครับ ยังไงรบกวนอาจารย์ช่วยแนะด้วยครับ

[snasui]

ถ้าบันทึก Macro จะบันทึกแบบไหน ลองทำมาดูก่อนครับ

[nurak]

ประมาณนี้ครับ แต่ปัญหาคือข้อมูลแต่ละวันไม่เท่ากัน เลยทําแบบที่ผมทําไม่ได้น่ะครับ

[snasui]

ตัวอย่างการบันทึก Macro ครับ

Code: Select all

Sub Macro()
'
' Macro Macro
'

'
    Application.Goto Reference:="OFFSET(R5C2,0,0,COUNT(R5C2:R10000C2),2)"
    Selection.Copy
    Range("H5").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B2").Select
    Selection.Copy
    Application.Goto Reference:="OFFSET(R5C7,0,0,COUNTA(R5C8:R1000C8))"
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

วิธีการ

1. เข้าเมนู Developer > Record Macro > กรอกชื่อ Macro ที่ต้องการ > OK
2. คลิกที่ช่อง Name Box > คีย์สูตร Offset(B5,0,0,Count(B5:B10000),2) > Enter > กดแป้น Ctrl+C เพื่อทำการ Copy
3. คลิกเซลล์ H5 > Enter เพื่อทำการวาง
4. คลิก B2 > Ctrl+C เพื่อทำการคัดลอก
5. คลิก Name Box > คีย์สูตร Offset(G5,0,0,Count(H5:H10000)) > Enter > Enter ซ้ำอีกครั้ง
6. Stop Recording

ก่อนบันทึก Macro ให้ลบวงกลมที่ B2 ออกไปเสียก่อน ไม่เช่นนั้นจะถูกคัดลอกไปด้วยครับ

[nurak]

ขอบคุณมากครับ อาจารย์ ติดปัญหาเพิ่มเติมนิดหน่อยครับ คือ sheet RawData B2 ข้อมูลหลาย sheet และ B2 ข้อมูลไม่เหมือนกันครับ พอลองใช้งานมันไม่ต่อกันครับ มันทับเอาอันสุดท้ายของข้อมูลอย่างเดียวเลย ควรทำอย่างไรครับ

[nurak]

ข้อมูลเพิ่มเติมรูปแบบที่ต้องการครับ

[puriwutpokin]

ข้อมูลเพิ่มเติมรูปแบบที่ต้องการครับ

ลองปรับเป็น

Code: Select all

Sub sss()
    Application.Goto Reference:="OFFSET(R5C2,0,0,COUNT(R5C2:R100C2),2)"
    Selection.Copy
    Range("H5").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("B2").Select
        Selection.Copy
    Application.Goto Reference:="OFFSET(R5C7,0,0,COUNT(R5C8:R100C8))"
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
        Application.Goto Reference:="OFFSET(R5C4,0,0,COUNT(R5C4:R100C4),2)"
    Selection.Copy
    Range("H" & Cells(Rows.Count, "H").End(xlUp).Row + 1).Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("D2").Select
        Selection.Copy
    Range("G" & Cells(Rows.Count, "G").End(xlUp).Row + 1, "G" & Range("H5").SpecialCells(xlCellTypeLastCell).Row).Activate
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
End Sub

[nurak]

ขอบคุณครับ