รวม sheet ตาม column
Posted: Tue Oct 11, 2016 11:30 am
ผม อยากทราบวิธีการรวมข้อมูลใน sheet อื่นๆมาวางใน sheet เดียวกันโดยเรียงตาม column ครับ พอดีได้ code มาจากเว็บนอกแล้วแต่มันเรียงตาม row
Code: Select all
Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A3").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
แนบไฟล์ตัวอย่างพร้อมแนบ Code ด้านบนมาในไฟล์ด้วย แสดงให้เห็นว่าได้มีการปรับปรุง Code ไปแล้วอย่างไรและติดขัดบรรทัดใด จะได้ช่วยปรับ Code ต่อไปจากนั้น การนำ Code ใด ๆ มาจะต้องปรับปรุงดูเองก่อน ติดแล้วค่อยถามกันครับ