ต้องการรวบรวมข้อมูลจากหลาย ๆ sheet มาเรียงต่อกัน แถว (row) แต่ละ sheet มีจำนวนไม่เท่ากันในแต่ละ sheet ครับ บาง sheet มี 10 บาง sheet มี 15 แต่ จำนวน column คงที่ครับ ใช้ Excel 2010 ทำจาก file pdf แปลงเป็น excel ครับ มี จำนวน sheet อยู่ เกือบ 300 sheet
-------------------------------------------------------------------------------------------------------------
| เลขประจำตัว | ชื่อ - สกุล | เงินเดือน | ภาษี |
-------------------------------------------------------------------------------------------------------------
| 1111111 | นาย ก | 20000 | 1000 |
| 2222222 | นาง ข | 15000 | 500 |
ควรทำใช้วิธีไหนดีครับ ผมลองบันทึก macro ขั้นตอนการการ cut และ past ของแต่ละ ชีท แล้วลอง run ดู error ตลอดครับ (ผมเพิ่งใช้ macro ครั้งแรกครับ)
รบกวนช่วยแนะนำหน่อยครับ
อันนี้คือ code ของ macro ครับ
Sub cutsheet()
Sheets("Page 2").Select
Range("A1:T29").Select
ActiveWindow.SmallScroll Down:=6
Selection.Cut
Sheets("Page 1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
Range("A59").Select
Sheets("Page 3").Select
ActiveWindow.SmallScroll Down:=-18
Range("A1:V34").Select
Selection.Cut
End Sub
ขอบคุณครับ
รบกวนขอวิธีการรวบรวมข้อมูล (เรียงจากหลาย ๆ sheet ) มาต่อ ๆ กันใน sheet เดียว ทำใน excel 2010 ควรทำยังไงดีครับ
-------------------------------------------------------------------------------------------------------------
| เลขประจำตัว | ชื่อ - สกุล | เงินเดือน | ภาษี |
-------------------------------------------------------------------------------------------------------------
| 1111111 | นาย ก | 20000 | 1000 |
| 2222222 | นาง ข | 15000 | 500 |
ควรทำใช้วิธีไหนดีครับ ผมลองบันทึก macro ขั้นตอนการการ cut และ past ของแต่ละ ชีท แล้วลอง run ดู error ตลอดครับ (ผมเพิ่งใช้ macro ครั้งแรกครับ)
รบกวนช่วยแนะนำหน่อยครับ
อันนี้คือ code ของ macro ครับ
Sub cutsheet()
Sheets("Page 2").Select
Range("A1:T29").Select
ActiveWindow.SmallScroll Down:=6
Selection.Cut
Sheets("Page 1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=33
Range("A59").Select
Sheets("Page 3").Select
ActiveWindow.SmallScroll Down:=-18
Range("A1:V34").Select
Selection.Cut
End Sub
ขอบคุณครับ