ผสานไฟล์ CSV ลงในหลายแผ่นใน Excel (ด้วยขั้นตอนง่ายๆ)

เมื่อทำงานกับไฟล์ Excel บางครั้งเราอาจมีไฟล์ CSV หลายไฟล์ ในปัจจุบัน บ่อยครั้งเราจำเป็นต้องรวมไฟล์ CSV เหล่านั้นไว้ในสมุดงานเดียว ในบทความนี้ ฉันจะแสดงขั้นตอนทั้งหมดในการรวมไฟล์ CSV ลงในหลายแผ่นใน Excel

คุณสามารถดาวน์โหลดไฟล์ CSV ต้นทางของเราและเวิร์กบุ๊กที่รวมขั้นสุดท้ายจากที่นี่ได้ฟรี!

ไฟล์ต้นฉบับ CSV:

ไฟล์รวมสุดท้าย:

ขั้นตอนในการรวมไฟล์ CSV ลงในแผ่นงาน Excel หลายแผ่น

สมมติว่าคุณมีสมุดงาน Excel สามชุดสำหรับบัตรรายงานเกรด 6, เกรด 7 และเกรด 8 สำหรับวิชาต่างๆ สำหรับนักเรียนหลายคน ไฟล์อยู่ในรูปแบบ CSV พร้อมชื่อ วิชา และคะแนนของนักเรียน ตอนนี้ คุณต้องการรวมสมุดงานทั้งหมดในสมุดงานเดียวในหลายแผ่น ดูคำแนะนำทีละขั้นตอนเพื่อรวมไฟล์ CSV ลงในแผ่นงาน Excel หลายแผ่น

📌 ขั้นตอนที่ 1:เตรียมโมดูลสำหรับ VBA

ก่อนอื่น คุณต้องแทรกและเตรียมโมดูลสำหรับแอปพลิเคชันโค้ด VBA ที่จำเป็น

• ในการดำเนินการนี้ ไปที่นักพัฒนา แท็บ>> Visual Basic เครื่องมือ

• ด้วยเหตุนี้ ตัวแก้ไข VB หน้าต่างจะเปิดขึ้น
• หลังจากนั้น ไปที่ แทรก แท็บที่นี่และเลือก โมดูล ตัวเลือก

ด้วยเหตุนี้ คุณจะมีโมดูลสำหรับแทรกโค้ด VBA ของคุณในขณะนี้

อ่านเพิ่มเติม: Excel VBA เพื่ออ่านไฟล์ CSV เป็น Array (ตัวอย่างในอุดมคติ 4 ตัวอย่าง)

📌 ขั้นตอนที่ 2:เขียนและบันทึกโค้ด VBA

ต่อไปนี้ คุณจะต้องใส่โค้ด VBA ของคุณทันที

• ในการดำเนินการนี้ ก่อนอื่นให้คลิกที่ โมดูล 1 .
• หลังจากนั้น ให้เขียนโค้ดต่อไปนี้ใน VB Editor ของ โมดูล 1 .

Sub MergeCSVFiles()
 Dim openFiles As Variant
 Dim I As Integer
 Dim wb As Workbook
 Dim mergedWb As Workbook
 Dim delimiter As String
 Dim screen As Boolean
 On Error GoTo ErrHandler
 screen = Application.ScreenUpdating
 Application.ScreenUpdating = False
 delimiter = ";"
 openFiles = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , "Merge CSV Files", , True)
 If TypeName(openFiles) = "Boolean" Then
 MsgBox "No files were selected", , "Merge CSV Files"
 GoTo ExitHandler
 End If
 I = 1
 Set mergedWb = Workbooks.Open(openFiles(I))
 mergedWb.Sheets(1).Copy
 Set wb = Application.ActiveWorkbook
 mergedWb.Close False
 Do While I < UBound(openFiles)
 I = I + 1
 Set mergedWb = Workbooks.Open(openFiles(I))
 mergedWb.Sheets(1).Move , wb.Sheets(wb.Sheets.Count)
 Loop
ExitHandler:
 Application.ScreenUpdating = screen
 Set wb = Nothing
 Set mergedWb = Nothing
 Exit Sub
ErrHandler:
 MsgBox Err.Description, , "Merge CSV Files"
 Resume ExitHandler
End Sub

• จากนั้นกด Ctrl + S บนแป้นพิมพ์ของคุณเพื่อบันทึกโค้ด VBA

• ส่งผลให้ Microsoft Excel กล่องโต้ตอบจะปรากฏขึ้น
• จากนั้น คลิกที่ ไม่ ปุ่ม.

• ดังนั้น บันทึกเป็น หน้าต่างจะปรากฏขึ้น
• ต่อไปนี้ เปลี่ยน บันทึกเป็นประเภท: ตัวเลือกเป็น .xlsm รูปแบบและคลิกที่ บันทึก ปุ่ม.

ดังนั้น รหัส VBA ของคุณจึงถูกเขียนและบันทึกไว้อย่างสมบูรณ์

อ่านเพิ่มเติม: Excel VBA เพื่ออ่านไฟล์ CSV ทีละบรรทัด (ตัวอย่างในอุดมคติ 3 ตัวอย่าง)

การอ่านที่คล้ายกัน

• วิธีการนำเข้าไฟล์ข้อความไปยัง Excel โดยใช้ VBA (3 วิธีง่ายๆ)
• วิธีการเปิด Notepad หรือไฟล์ข้อความใน Excel ด้วยคอลัมน์ (วิธีง่ายๆ 3 วิธี)
• Excel VBA:อ่านไฟล์ข้อความเป็นสตริง (4 กรณีที่มีประสิทธิภาพ)
• วิธีการแปลง CSV เป็น XLSX (4 วิธีด่วน)
• วิธีอ่านไฟล์ CSV ใน Excel (4 วิธีที่เร็วที่สุด)

📌 ขั้นตอนที่ 3:เรียกใช้โค้ดเพื่อรวมไฟล์ CSV เป็นหลายแผ่น

สุดท้ายนี้ คุณต้องเรียกใช้โค้ด VBA เพื่อรวมไฟล์ CSV เป็นหลายแผ่น

• ในการดำเนินการนี้ ไปที่นักพัฒนา แท็บ>> มาโคร เครื่องมือ

• ด้วยเหตุนี้ มาโคร หน้าต่างจะปรากฏขึ้น
• จากนั้น เลือก MergeCSVFiles มาโครจาก ชื่อมาโคร: บานหน้าต่างและคลิกที่ เรียกใช้ ปุ่ม.

• ดังนั้น เวิร์กบุ๊กทั้งหมดจะถูกรวมเป็นเวิร์กบุ๊กใหม่เป็นเวิร์กชีตที่ต่างกัน

• ตอนนี้ ในการจัดเก็บไฟล์ Excel อย่างถูกต้อง ให้ไปที่ ไฟล์ แท็บ

• กำลังติดตาม คลิกที่ บันทึกเป็น ตัวเลือกจาก ไฟล์ ที่ขยาย แท็บ

• ด้วยเหตุนี้ Excel บันทึกเป็น กล่องโต้ตอบจะปรากฏขึ้น
• จากนั้น คลิกที่ เรียกดู ตัวเลือก

• ดังนั้น บันทึกเป็น กล่องโต้ตอบจะปรากฏขึ้น
• ต่อไปนี้ ให้ใส่ชื่อไฟล์ที่คุณต้องการใน ชื่อไฟล์: กล่องข้อความและคลิกที่ บันทึก ปุ่ม.

ดังนั้น ไฟล์ CSV จะถูกรวมเป็นแผ่นงานหลายแผ่นในสมุดงานเดียว และผลลัพธ์สุดท้ายจะเป็นแบบนี้

อ่านเพิ่มเติม: วิธีการนำเข้า CSV ลงในแผ่นงานที่มีอยู่ใน Excel (5 วิธี)

การใช้ Power Query เพื่อรวมไฟล์ CSV เป็นแผ่นเดียวใน Excel

ตอนนี้ ถ้าคุณต้องการรวมไฟล์ CSV ลงในแผ่นงานเดียวใน Excel คุณสามารถใช้เครื่องมือสืบค้นข้อมูลของ Excel ได้ ทำตามขั้นตอนด้านล่างเพื่อทำสิ่งนี้

📌 ขั้นตอน:

• ก่อนอื่น ไปที่ ข้อมูล แท็บ>> รับข้อมูล เครื่องมือ>> จากไฟล์ รายการตัวเลือก>> จากโฟลเดอร์ ตัวเลือก

• ส่งผลให้ เรียกดู หน้าต่างจะเปิดขึ้น
• ต่อไปนี้ ให้เลือกโฟลเดอร์ที่คุณเก็บไฟล์ CSV ไว้
• จากนั้น คลิกที่ เปิด ปุ่ม.

• ด้วยเหตุนี้ หน้าต่าง Power Query จะเปิดขึ้นและจะแสดงไฟล์ CSV ที่จะนำเข้า
• จากนั้น คลิกที่ รวม ปุ่ม>> รวมและแปลงข้อมูล ตัวเลือก

• ด้วยเหตุนี้ รวมไฟล์ หน้าต่างจะปรากฏขึ้น
• คุณจะเห็นตัวอย่างที่นี่และเลือก ตัวคั่น ตัวเลือกเป็น อัฒภาค ตามข้อมูลของคุณ
• กำลังติดตาม คลิกที่ปุ่ม ตกลง ปุ่ม.

• ดังนั้น คุณจะได้รับไฟล์ที่ผสานในหน้าต่าง Power Query

• สุดท้ายแต่ไม่ท้ายสุด ไปที่ ไฟล์ แท็บจากหน้าต่าง Power Query>> คลิกที่ ปิด &โหลด ปุ่ม>> ปิดและโหลด ตัวเลือก

ดังนั้น คุณจะได้ไฟล์ CSV ทั้งหมดรวมเป็นแผ่นเดียวใน Excel และผลลัพธ์ควรมีลักษณะดังนี้

อ่านเพิ่มเติม: วิธีเปิด CSV ด้วยตัวคั่นใน Excel (6 วิธีง่ายๆ)

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

• รักษาตัวคั่นเฉพาะสำหรับทุกไฟล์และทุกข้อมูล
• ไฟล์ CSV ทั้งหมดควรวางแนวเดียวกันและมาจากแถวและคอลัมน์เดียวกัน

บทสรุป

ในบทความนี้ ฉันได้แสดงขั้นตอนทั้งหมดในการรวมไฟล์ CSV ลงในแผ่นงาน Excel หลายแผ่น ฉันแนะนำให้คุณอ่านบทความเต็มอย่างละเอียดและฝึกฝนตามนั้น ฉันหวังว่าคุณจะพบว่าบทความนี้มีประโยชน์และให้ข้อมูล เรายินดีเป็นอย่างยิ่งที่จะแสดงความคิดเห็นที่นี่ หากคุณมีคำถามหรือคำแนะนำเพิ่มเติม

และไปที่ ExcelDemy เพื่อเรียนรู้เกี่ยวกับวิธีแก้ไขปัญหา เคล็ดลับ และลูกเล่นอื่นๆ ของ Excel ขอบคุณ!

บทความที่เกี่ยวข้อง

• วิธีดูไฟล์ CSV ใน Excel (วิธีที่มีประสิทธิภาพ 3 วิธี)
• ความแตกต่างระหว่างไฟล์ CSV และ Excel (11 ตัวอย่างที่เหมาะสม)
• แปลง CSV เป็น Excel โดยอัตโนมัติด้วยขั้นตอนง่ายๆ
• [แก้ไขแล้ว:] Excel กำลังเปิดไฟล์ CSV ในหนึ่งคอลัมน์ (โซลูชัน 3 รายการ)
• วิธีการแปลง CSV เป็น XLSX Command Line (ด้วยขั้นตอนง่ายๆ)
• Excel VBA:อ่านไฟล์ข้อความทีละบรรทัด (6 ตัวอย่างที่เกี่ยวข้อง)