Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 7:05 pm
ต้องการ Copy ข้อมูลโดยใช้มาโคร ครับ
เขียน Code มาก่อน ติดแล้วค่อยถามกันครับExcel Forum
ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Page 1 of 1
Re: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 8:12 pm
เขียน Code มาก่อน ติดแล้วค่อยถามกันครับRe: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 8:19 pm
ปกติบันทึกมาโครเอาครับ แต่แบบนี้ไม่เคยเขียนเลย เลยไม่รู้จะเริ่มอย่างไรครับ ยังไงรบกวนอาจารย์ช่วยแนะด้วยครับRe: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 8:28 pm
ถ้าบันทึก Macro จะบันทึกแบบไหน ลองทำมาดูก่อนครับRe: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 9:10 pm
ประมาณนี้ครับ แต่ปัญหาคือข้อมูลแต่ละวันไม่เท่ากัน เลยทําแบบที่ผมทําไม่ได้น่ะครับ 
Re: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Tue Feb 12, 2019 9:33 pm
ตัวอย่างการบันทึก 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- เข้าเมนู Developer > Record Macro > กรอกชื่อ Macro ที่ต้องการ > OK
- คลิกที่ช่อง Name Box > คีย์สูตร Offset(B5,0,0,Count(B5:B10000),2) > Enter > กดแป้น Ctrl+C เพื่อทำการ Copy
- คลิกเซลล์ H5 > Enter เพื่อทำการวาง
- คลิก B2 > Ctrl+C เพื่อทำการคัดลอก
- คลิก Name Box > คีย์สูตร Offset(G5,0,0,Count(H5:H10000)) > Enter > Enter ซ้ำอีกครั้ง
- Stop Recording
Re: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Wed Feb 13, 2019 11:43 am
ขอบคุณมากครับ อาจารย์ ติดปัญหาเพิ่มเติมนิดหน่อยครับ คือ sheet RawData B2 ข้อมูลหลาย sheet และ B2 ข้อมูลไม่เหมือนกันครับ พอลองใช้งานมันไม่ต่อกันครับ มันทับเอาอันสุดท้ายของข้อมูลอย่างเดียวเลย ควรทำอย่างไรครับRe: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Wed Feb 13, 2019 1:28 pm
ข้อมูลเพิ่มเติมรูปแบบที่ต้องการครับ
Re: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Wed Feb 13, 2019 2:12 pm
ลองปรับเป็น
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
Re: Copy ข้อมูลจาก 1จุดเป็นหลายจุด
Posted: Wed Feb 13, 2019 6:01 pm
ขอบคุณครับ