วิธีรวมสมุดงานหลายเล่มไว้ในสมุดงานหลักใน Excel

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

รวมสมุดงานหลายเล่มไว้ในสมุดงานเดียวด้วยฟังก์ชันย้ายหรือคัดลอก

หากจำเป็นต้องรวมสมุดงานเพียงไม่กี่เล่มคุณสามารถใช้คำสั่งย้ายหรือคัดลอกเพื่อย้ายหรือคัดลอกแผ่นงานจากสมุดงานต้นฉบับไปยังสมุดงานหลักด้วยตนเอง

1. เปิดสมุดงานที่คุณจะรวมเข้ากับสมุดงานหลัก

2. เลือกแผ่นงานในสมุดงานต้นฉบับที่คุณจะย้ายหรือคัดลอกไปยังสมุดงานหลัก

3. หลังจากเลือกแผ่นงานที่ต้องการแล้วให้คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ย้ายหรือคัดลอก จากเมนูบริบท ดูภาพหน้าจอ:

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

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

รวมสมุดงานหลายเล่มหรือแผ่นงานที่ระบุเข้ากับสมุดงานหลักด้วย VBA

หากจำเป็นต้องรวมสมุดงานหลายเล่มเข้าด้วยกันคุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อใช้งานได้อย่างรวดเร็ว กรุณาดำเนินการดังนี้

1. ใส่สมุดงานทั้งหมดที่คุณต้องการรวมไว้ในไดเร็กทอรีเดียวกัน

2. เปิดไฟล์ Excel (สมุดงานนี้จะเป็นสมุดงานหลัก)

3 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA 1: รวมสมุดงาน Excel หลายเล่มเข้าด้วยกัน

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นแผ่นงานทั้งหมดหรือแผ่นงานที่ระบุของสมุดงานในโฟลเดอร์นั้นจะรวมเข้ากับสมุดงานหลักพร้อมกัน

รวมสมุดงานหลายชุดหรือแผ่นงานที่ระบุไว้ในสมุดงานเดียวได้อย่างง่ายดาย

โชคดีที่ รวมกัน ยูทิลิตี้สมุดงานของ Kutools สำหรับ Excel ทำให้ง่ายขึ้นมากในการรวมสมุดงานหลายเล่มเป็นหนึ่งเดียว มาดูวิธีทำให้ฟังก์ชันนี้ทำงานในการรวมสมุดงานหลายชุด

1. สร้างสมุดงานใหม่แล้วคลิก Kutools พลัส > รวมกัน. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าควรบันทึกเวิร์กบุ๊กรวมทั้งหมดและไม่สามารถใช้คุณลักษณะนี้กับเวิร์กบุ๊กที่มีการป้องกันได้โปรดคลิกที่ OK ปุ่ม

2 ใน รวมแผ่นงาน ตัวช่วยสร้างเลือก รวมแผ่นงานหลายแผ่นจากสมุดงานไว้ในสมุดงานเดียว จากนั้นคลิกตัวเลือก ถัดไป ปุ่ม. ดูภาพหน้าจอ:

3 ใน รวมแผ่นงาน - ขั้นตอนที่ 2 จาก 3 ใหคลิกปุ the ม เพิ่ม > เนื้อไม่มีมัน or โฟลเดอร์ เพื่อเพิ่มไฟล์ Excel คุณจะรวมเป็นไฟล์เดียว หลังจากเพิ่มไฟล์ Excel แล้วให้คลิกไฟล์ เสร็จสิ้น และเลือกโฟลเดอร์เพื่อบันทึกสมุดงานหลัก ดูภาพหน้าจอ:

ตอนนี้สมุดงานทั้งหมดรวมเป็นหนึ่งเดียว

เมื่อเทียบกับสองวิธีข้างต้น Kutools สำหรับ Excel มีข้อดีดังต่อไปนี้:

• 1) สมุดงานและแผ่นงานทั้งหมดแสดงอยู่ในกล่องโต้ตอบ
• 2) สำหรับแผ่นงานที่คุณต้องการแยกออกจากการรวมให้ยกเลิกการเลือก
• 3) แผ่นงานเปล่าจะถูกแยกออกโดยอัตโนมัติ
• 4) ชื่อไฟล์ต้นฉบับจะถูกเพิ่มเป็นคำนำหน้าชื่อแผ่นงานหลังจากผสาน;
• สำหรับฟังก์ชันเพิ่มเติมของคุณสมบัตินี้ กรุณาเยี่ยมชมที่นี่.