Note: The other languages of the website are Google-translated. Back to English
English English

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

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

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

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

ส่งออกและบันทึกแผ่นงานเป็นสมุดงานใหม่ด้วย Kutools for Excel ความคิดที่ดี 3


ลูกศรสีฟ้าฟองขวา ส่งออกและบันทึกแผ่นงานเป็นสมุดงานใหม่ด้วยคำสั่ง Move หรือ Copy

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

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

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

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

เอกสารส่งออกเอกสาร 2

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

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


แยกแผ่นงานหลายแผ่นออกเป็นสมุดงานแยกกันใน Excel ได้อย่างรวดเร็ว

ใน Microsoft Excel คุณสามารถบันทึกหรือแยกแผ่นงานจากสมุดงานหนึ่งเป็นไฟล์ Excel ใหม่ได้โดยการคัดลอกและวางแผ่นงานนี้ลงในสมุดงานใหม่ ดูเหมือนจะยุ่งยากหากคุณต้องการแยกแต่ละแผ่น / แผ่นงานของสมุดงานขนาดใหญ่เป็นไฟล์ Excel, txt, csv, pdf แยกกัน แต่ด้วย Kutools สำหรับ Excel's แยกสมุดงาน ยูทิลิตี้คุณสามารถจัดการกับมันได้อย่างรวดเร็ว  คลิกเพื่อทดลองใช้ฟรี 30 วันพร้อมคุณสมบัติเต็ม!
สมุดงานแยก doc 1
 
Kutools for Excel: มีโปรแกรมเสริม Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

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

เอกสารส่งออกเอกสาร 7

ลูกศรสีฟ้าฟองขวา ส่งออกและบันทึกแผ่นงานเป็นสมุดงานใหม่ด้วย Kutools for Excel

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

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

ขั้นตอนที่ 1: คลิก Kutools พลัส > สมุดงาน > แยกสมุดงาน .... ดูภาพหน้าจอ:
เอกสารส่งออกเอกสาร 3

ขั้นตอนที่ 2: ในไฟล์ แยกสมุดงาน ทำตามขั้นตอนด้านล่าง:

เอกสารส่งออกเอกสาร 4
1: ชื่อแผ่นงานทั้งหมดได้รับการตรวจสอบตามค่าเริ่มต้นหากคุณไม่ต้องการแยกแผ่นงานบางแผ่นคุณสามารถยกเลิกการเลือกได้


2: หากคุณต้องการหลีกเลี่ยงการแยกเวิร์กชีตที่ซ่อนอยู่หรือว่างเปล่าคุณสามารถตรวจสอบไฟล์ ข้ามแผ่นงานที่ซ่อนอยู่ or ข้ามแผ่นงานเปล่า.);


3: และคุณสามารถตรวจสอบได้ ระบุบันทึก และเพื่อเลือกแยกแผ่นงานจากนั้นบันทึกเป็นไฟล์ข้อความไฟล์ pdf หรือไฟล์ csv ในค่าเริ่มต้นหากคุณไม่เลือกตัวเลือกนี้ระบบจะแบ่งแผ่นงานและบันทึกเป็นสมุดงาน

ขั้นตอนที่ 3: จากนั้นคลิก แยก แล้วเลือกโฟลเดอร์ที่คุณต้องการใส่สมุดงานใหม่ ดูภาพหน้าจอ:
เอกสารส่งออกเอกสาร 6

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

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับเครื่องมือ Split Workbook นี้.

ลูกศรสีฟ้าฟองขวา ส่งออกและบันทึกแต่ละแผ่นเป็นสมุดงานใหม่


แบ่งข้อมูลออกเป็นหลายแผ่นอย่างรวดเร็วตามคอลัมน์หรือแถวคงที่ใน Excel

สมมติว่าคุณมีเวิร์กชีตที่มีข้อมูลในคอลัมน์ A ถึง G ชื่อพนักงานขายจะอยู่ในคอลัมน์ A และคุณต้องแยกข้อมูลนี้ออกเป็นหลายแผ่นโดยอัตโนมัติตามคอลัมน์ A ในสมุดงานเดียวกันและพนักงานขายแต่ละคนจะถูกแบ่งออกเป็นใหม่ แผ่นงาน Kutools สำหรับ Excel's วันที่แยก ยูทิลิตี้สามารถช่วยให้คุณแบ่งข้อมูลออกเป็นหลายแผ่นงานได้อย่างรวดเร็วตามคอลัมน์ที่เลือกดังภาพด้านล่างที่แสดงใน Excel  คลิกเพื่อทดลองใช้ฟรี 30 วันเต็ม!
doc แยกข้อมูล 2
 
Kutools for Excel: มีโปรแกรมเสริม Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (63)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก ทำงานได้ดีและง่ายมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันชอบรหัส เป็นไปได้ไหมที่จะบันทึกสมุดงานใหม่โดยไม่มีข้อมูลวันที่ นั่นคือเมื่อฉันบันทึกแผ่นงานในสมุดงานก่อนหน้าอีกครั้ง ฉันจะมีตัวเลือกในการเขียนทับการเปลี่ยนแปลงแทนที่จะสร้างโฟลเดอร์วันที่อื่น แต่ก็ไม่สำคัญเท่าไหร่ ฉันจะใช้ชื่อและปลายทางอื่นสำหรับโฟลเดอร์ปลายทางได้อย่างไร ขอแสดงความนับถือ Sean
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก. งานดี!.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีเปลี่ยนมาโครนี้เพื่อให้ฉันสามารถบันทึกลงในไฟล์ในโฟลเดอร์ XLSTART แต่จะเรียกใช้สำหรับสมุดงานที่ใช้งานอยู่หรือไม่ ทุกครั้งที่ฉันบันทึกลงในเวิร์กบุ๊ก XLSTART มันจะล้มเหลวที่บรรทัด DateString = Format(ตอนนี้ "yyyy-mm-dd hh-mm-ss") ขอบคุณ! Keith
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคนสามารถช่วยฉันด้านล่าง ฉันต้องการโค้ด VBA ที่สามารถคัดลอกเฉพาะชีตที่มองเห็นได้ทั้งหมดไปยังเวิร์กบุ๊กใหม่ และไม่ควรคัดลอกโค้ดมาโครไปยังเวิร์กบุ๊กใหม่ บันทึกเวิร์กบุ๊กใหม่บนเดสก์ท็อปโดยมีค่าเซลล์ต่างกันสองค่าในชีตและชื่อชีตเป็นชื่อไฟล์ และปิดเวิร์กบุ๊กหลักโดยไม่ใช้ ประหยัด.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. นี่คือสิ่งที่ฉันต้องการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสล้มเหลวที่ sh.Copy และฉันไม่สามารถทราบสาเหตุได้ ความคิดใด ๆ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้สมบูรณ์แบบสำหรับสิ่งที่ฉันต้องการ แต่คุณสามารถแสดงรหัสสำหรับกระบวนการเดียวกันที่แน่นอนสำหรับแผ่นงานเดียวแทนที่จะเป็นสมุดงานทั้งหมดได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส VBA ทำงานเหมือนเวทมนตร์ แต่มีวิธีที่จะทำโดยใช้ VBScript หรือไม่? ฉันกำลังคลั่งไคล้การพยายามทำตามข้อกำหนดจากหัวหน้างานของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ. เทอริมาคาซิห์ รหัส ini ยัง saya butuhkan
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก ขอบคุณ! ชอบรหัส VBA
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มุย บัวนา ลา แอพลิเคชั่น. Es una pena ไม่มีตัวตน tambien en Español. Gracias
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
น่าเสียดายที่รหัส VBA ใช้งานไม่ได้สำหรับฉัน ฉันต้องแก้ไขข้อบกพร่องและปัญหาอยู่ที่บรรทัด: Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum มีความคิดเห็นใดบ้างที่ทำไมมันไม่ทำงานสำหรับฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บทความที่ยอดเยี่ยม - VBA ทำงานครั้งแรก - สมบูรณ์แบบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
xWs.Copy -เป็นข้อผิดพลาดในส่วนของฉัน หมายความว่าอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อผิดพลาดรันไทม์เมธอด 'สำเนาของวัตถุ' แผ่นงาน' ล้มเหลว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จากสามวิธีข้างต้น ฉันพบว่าวิธีแรกค่อนข้างดีเมื่อพิจารณาจากข้อเท็จจริงที่ว่าฉันเพิ่งเริ่มต้นและงานของฉันไม่ได้มีความสำคัญเท่ามืออาชีพเลย ฉันขอขอบคุณอย่างจริงใจที่อธิบายขั้นตอนต่างๆ ในลักษณะที่เรียบง่ายและชัดเจน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถส่งออกชีตทั้งหมด (300+) เป็น html ได้ไหม สิ่งนี้จะช่วยฉันได้มาก การส่งออกไปยังข้อความแบบรวมช่วยอยู่แล้ว แต่ฉันต้องการใน html หรือไม่มีขอบตารางสำหรับความแตกต่างของเซลล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสของคุณใช้งานได้สำหรับฉัน... ขอบคุณมาก!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. ฉันได้รับรหัสข้อผิดพลาดที่ระบุว่า "ข้อผิดพลาดในการคอมไพล์: ขั้นตอนภายนอกไม่ถูกต้อง"...ช่วยด้วย!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ