รวมหลายไฟล์ CSV เป็นสมุดงาน Excel เดียว: คู่มือทีละขั้นตอน 3 วิธี

Excel เป็นเครื่องมือยอดนิยมสำหรับข้อมูลขนาดใหญ่ บทความนี้สอน 3 วิธีรวมหลายไฟล์ CSV เป็นสมุดงาน (Workbook) Excel เดียว

3 วิธีรวมหลายไฟล์ CSV เป็น Workbook เดียว

ตัวอย่าง: โฟลเดอร์บน Desktop มี 2 ไฟล์ CSV

1. ใช้คำสั่ง CMD (Command Prompt)

ขั้นตอน:

• ในโฟลเดอร์ CSV: กด Shift + คลิกขวา > Copy as path
• เปิด CMD > พิมพ์ cd + เว้นวรรค + วางพาธ > Enter
• พิมพ์ copy *.csv merged.csv > Enter
• จะได้ไฟล์ merged.csv รวมข้อมูลทั้งหมด

หมายเหตุ: ส่วนแรก C:\Users\Me> มาโดยอัตโนมัติ อาจต่างกันในแต่ละเครื่อง ไม่ต้องกังวล

2. ใช้ Power Query

ขั้นตอน:

• เปิด Workbook ใหม่ > Data > Get Data > From File > From Folder
• เลือกโฟลเดอร์ CSV > Open
• ใน Power Query: คลิก Combine & Load > OK

ข้อมูลจะรวมอัตโนมัติ เหมาะสำหรับไฟล์ที่มีหัวข้อเหมือนกัน

3. ใช้ VBA Macro

ขั้นตอน:

• กด Alt+F11 เปิด VBA Editor > Insert > Module
• วางโค้ดด้านล่าง:

Sub MergeCsvs()
Dim folderpath As String
folderpath = "C:\Users\Me\Desktop\CSV Files"
If folderpath Like "*[!\/]" Then folderpath = folderpath & "/"
End If
Dim File As String
File = Dir(folderpath & "*.csv")
Dim workbook_result As Workbook
Set workbook_result = Workbooks.Add
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim WorkBook As Workbook
While File <> vbNullString
    Set WorkBook = Workbooks.Open(folderpath & File)
    WorkBook.ActiveSheet.UsedRange.Copy workbook_result.ActiveSheet.UsedRange.Rows(workbook_result.ActiveSheet.UsedRange.Rows.Count).Offset(1).Resize(1)
    WorkBook.Close False
    File = Dir()
Wend
workbook_result.ActiveSheet.Rows(1).EntireRow.Delete
End Sub

• กด F5 รันโค้ด > จะได้ไฟล์ใหม่รวมข้อมูลทั้งหมด
• ลบแถวหัวข้อที่ซ้ำออก

สิ่งที่ควรจำ

• วิธี CMD: ให้โฟลเดอร์อยู่ในไดรฟ์ C
• วิธี Power Query: ไฟล์ทุกไฟล์ต้องมีหัวข้อ (Headers) เหมือนกัน

สรุป

3 วิธีรวม CSV: CMD เร็วที่สุด Power Query ใช้ง่าย VBA ยืดหยุ่นสูงสุด เลือกตามความสะดวก เยี่ยมชม Exceldemy สำหรับบทความเพิ่มเติม