วิธีการส่งออกและบันทึกแต่ละแผ่นงานเป็นสมุดงานใหม่แยกต่างหากใน Excel

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

บันทึกแผ่นงานเป็นสมุดงานใหม่ทีละแผ่นด้วยคำสั่ง Move or Copy

การใช้ ย้ายหรือคัดลอก คำสั่งจะช่วยให้คุณส่งออกหรือคัดลอกแผ่นงานหนึ่งหรือหลายแผ่นไปยังสมุดงานใหม่ได้อย่างรวดเร็ว

ขั้นตอนที่ 1: เลือกชื่อเวิร์กชีตในแถบแท็บ คุณสามารถเลือกหลายรายการได้โดยกดปุ่มค้างไว้ Ctrl คีย์หรือ เปลี่ยน กุญแจ

ขั้นตอนที่ 2: คลิกขวาที่ชื่อแผ่นงานแล้วคลิกไฟล์ ย้ายหรือคัดลอก จากเมนูบริบท

ขั้นตอนที่ 3: ใน ย้ายหรือคัดลอก กล่องโต้ตอบเลือกไฟล์ (หนังสือเล่มใหม่) รายการจากรายการแบบเลื่อนลงของ ย้ายแผ่นงานที่เลือกไปที่หนังสือ.

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

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

บันทึกแผ่นงานเป็นสมุดงานใหม่ได้อย่างง่ายดายด้วย Kutools for Excel

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

หลังจากติดตั้ง Kutools for Excelคลิก Kutools พลัส > สมุดงาน > แยกสมุดงาน เพื่อเปิด แยกสมุดงาน กล่องโต้ตอบ จากนั้นกำหนดค่าดังนี้

1. ตรวจสอบแผ่นงานที่คุณต้องการบันทึกเป็นสมุดงานใหม่ ตามค่าเริ่มต้น แผ่นงานทั้งหมดจะถูกเลือก
2. คุณสามารถเลือกข้ามแผ่นงานที่ซ่อนอยู่และว่างเปล่าได้โดยทำเครื่องหมายที่ช่องทำเครื่องหมายที่เกี่ยวข้องใน Options มาตรา.
3. คลิก OK.

   

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

จากนั้นแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดจะถูกบันทึกเป็นสมุดงานใหม่แยกต่างหากทันที

ส่งออกและบันทึกแผ่นงานเป็นสมุดงานใหม่ด้วยรหัส VBA

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

ขั้นตอนที่ 1: กดปุ่มค้างไว้ ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ขั้นตอนที่ 2: คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล:

VBA: ส่งออกและบันทึกแผ่นงานเป็นสมุดงานใหม่ในโฟลเดอร์ใหม่

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

ขั้นตอนที่ 3: กดปุ่ม F5 กุญแจสำคัญในการเรียกใช้รหัสนี้ และกล่องพร้อมต์จะปรากฏขึ้นเพื่อบอกตำแหน่งของเวิร์กบุ๊กที่ส่งออกใหม่และเวิร์กชีตทั้งหมดของเวิร์กบุ๊กต้นฉบับได้ถูกส่งออกไปยังเวิร์กบุ๊กใหม่แยกต่างหากซึ่งตั้งชื่อแผ่นงานต้นฉบับในโฟลเดอร์เฉพาะใหม่ ดูภาพหน้าจอ:

การสาธิต: ส่งออกและบันทึกแต่ละแผ่นงานเป็นสมุดงานใหม่

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

• รวมสมุดงานหลายเล่มเป็นสมุดงานเดียว
• บันทึกการเลือกเป็นไฟล์แต่ละไฟล์
• แยกสมุดงานเพื่อแยกไฟล์ Excel