Page 1 of 1
อยากทราบวิธีนำข้อมูลจากหลายแฟ้มมาต่อเรียงกันในแฟ้มเดียว
Posted: Wed Apr 20, 2011 1:35 pm
by pittawat
รบกวนด้วยครับ ผมต้องการเอาข้อมูลในsheetแรกจากหลายๆแฟ้มในexcel มาเรียงต่อกันในแฟ้มใหม่ เป็นแฟ้มเดียว
จะมีวิธีการทำอย่างไรได้บ้างครับ เนื่องจากมีไฟล์เป็นจำนวนมาก
หัวตารางตรงเหมือนกัน และข้อมูลมีสูตรด้วย อยากให้มีแต่ข้อมูลมาเรียงต่อกันลงด้านล่าง
รบกวนด้วยครับ
Re: อยากทราบวิธีนำข้อมูลจากหลายแฟ้มมาต่อเรียงกันในแฟ้มเดียว
Posted: Wed Apr 20, 2011 5:58 pm
by snasui
การทำเช่นนั้นต้องใช้ VBA ครับ วิธีการคือนำ Code ด้านล่างไปวางใน Module ปกติของไฟล์ที่ต้องการรวมข้อมูลโดย
- Copy Code ด้านล่าง
- ที่ Excel กดแป้น Alt+F11
- Insert > Module > Paste
- แล้วเปิดไฟล์ทั้งหมดขึ้นมาพร้อมกัน
- ไปยังไฟล์ที่ต้องการรวมข้อมูล > กดแป้น Alt+F8
- เลือก CollectData > Run
Code: Select all
Sub CollectData()
Dim i As Integer
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
Workbooks(i).Worksheets(1).UsedRange.Copy
ThisWorkbook.Worksheets("Result") _
.Range("B65536").End(xlUp).Offset(1, 0). _
PasteSpecial xlPasteValues
ActiveCell.EntireRow.Delete
End If
Next i
End Sub
Note: ผมถือว่าตำแหน่งเซลล์แรกของข้อมูลตามไฟล์ตัวอย่างคือตำแหน่งในไฟล์จริง