Snasui Excel Forum

ผมลองเขียนดูแล้วเเต่มันไม่มาครับ Macro ที่ผมเขียนนี่ถูกไหมครับ

Sub total()
x = 2
Do While Cells(x, 1) <> ""

Worksheets("Total").Rows(x).Copy
Worksheets("Sheet4").Activate
erow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet4").Rows(erow ...

ขอบคุณสำหรับคำตอบครับ แต่อยากจะถามเพิ่มอีกนิดครับถ้าต้องการให้ มัน copy มาใน sheet ใหม่แบบ auto เลยได้ไหมครับเพราะ user คงไม่อยากลากแล้ว copy ครับ

ผมได้ทำการรวมชีทตามนี้แล้ว http://snasui.blogspot.com/2009/12/sheet-sheet.html แล้วที่นี้ sheet ที่รวมเเล้วอยากจะทำ subtotal โดยจำแนกตาม เลข id แต่พอทำ subtotal แล้ว ข่้อมูลมาไม่ครบครับ รบกวนช่วยชี้แนะด้วยครับ