คุกกี้ช่วยให้เราสามารถนำเสนอบริการของเรา โดยการใช้บริการของเราคุณยินยอมที่จะใช้งานของเราคุกกี้
เคล็ดลับ: ภาษาอื่น ๆ ได้รับการแปลโดย Google คุณสามารถเยี่ยมชม English รุ่นของลิงก์นี้
เข้าสู่ระบบ
x
or
x
x
สมัครสมาชิก
x

or

วิธีการรวมสมุดงานจำนวนมากลงในสมุดงานเดียวใน Excel

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

รวมสมุดงานหลายรายการลงในสมุดงานเดียวกับ VBA

รวมสมุดงานหลายรายการไว้ในสมุดงานเดียวด้วยคำสั่ง Move or Copy

ได้อย่างง่ายดายรวมสมุดงานหลายสมุดงานกับ Kutools สำหรับ Excel


สามารถรวมแผ่นงาน / เวิร์กชีทหลายแผ่นไว้ในแผ่นงาน / เวิร์กบุ๊คได้อย่างง่ายดาย:

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

Kutools สำหรับ Excel: มี Excel Add-ins ที่มีประโยชน์มากกว่า 200 และสามารถทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรี Now!

เครื่องมือเพิ่มประสิทธิภาพที่แนะนำสำหรับ Excel / Office

แท็บ Office: นำการแก้ไขแท็บไปใช้ Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Safariการทดลองใช้ฟรีไม่ จำกัด 30 วัน

Kutools สำหรับ Excel: คุณลักษณะที่มีประสิทธิภาพของ 300 ช่วยให้ Excel ใช้งานได้ง่ายและเพิ่มประสิทธิภาพการทำงานได้ทันทีการทดลองใช้ฟรีไม่ จำกัด 60 วัน


รวมสมุดงานหลายรายการลงในสมุดงานเดียวกับ VBA

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

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

2. เปิดไฟล์ Excel ที่คุณต้องการรวมเวิร์กบุคอื่นไว้

3. คลิก ผู้พัฒนา > ของ Visual Basicใหม่ Microsoft Visual Basic สำหรับแอ็พพลิเคชัน จะปรากฏขึ้นคลิก สิ่งที่ใส่เข้าไป > โมดูลและใส่รหัสต่อไปนี้ลงในโมดูล:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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

ปลาย: ในโค้ดข้างต้นคุณสามารถเปลี่ยนเส้นทางไปยังเส้นทางที่คุณใช้

4 จากนั้นคลิก doc-ผสานหลายสมุดปุ่ม เพื่อเรียกใช้โค้ดและเวิร์กชีททั้งหมด (รวมถึงเวิร์กชีทเปล่า) ภายในเวิร์กบุคได้รวมเข้ากับเวิร์กบุคหลัก

หมายเหตุ: รหัส VBA นี้สามารถผสานสมุดงานทั้งหมดลงในเวิร์กบุคหลักถ้าคุณต้องการรวมเวิร์กชีทที่กำหนดไว้ในสมุดงานรหัสนี้จะไม่ทำงาน


รวมสมุดงานหลายรายการไว้ในสมุดงานเดียวด้วยคำสั่ง Move or Copy

ถ้าคุณเป็นมือใหม่ของ Microsoft Excel คุณไม่มีทางเลือกอื่นนอกจากต้องคัดลอกข้อมูลของทุกแผ่นแล้ววางลงในสมุดงานใหม่ทีละรายการและใช้คำสั่ง Move or Copy ใช้ ย้ายหรือคัดลอก คำสั่งจะช่วยให้คุณสามารถส่งออกหรือคัดลอกแผ่นงานหนึ่งแผ่นหรือหลายแผ่นไปยังสมุดงานใหม่ได้อย่างรวดเร็ว

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

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

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

4. จากนั้นคลิก OK. แผ่นงานที่เลือกถูกย้ายไปยังสมุดงานต้นแบบ

5. ทำซ้ำขั้นตอนจาก 2 ไป 4 เพื่อย้ายสมุดงานอื่น ๆ ไปยังสมุดงานหลัก จากนั้นจะรวมเวิร์กชีททั้งหมดของสมุดงานที่เปิดไว้ในสมุดงานเดียว ดูภาพหน้าจอ:


ได้อย่างง่ายดายรวมสมุดงานหลายสมุดงานกับ Kutools สำหรับ Excel

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

Kutools สำหรับ Excel : มี Excel Add-ins ที่มีประโยชน์มากกว่า 300, ทดลองใช้โดยไม่มีข้อ จำกัด ใน 60 วัน.

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

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

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

doc รวมสมุดงานหลาย ๆ arrow1

3. ใน รวมแผ่นงาน - ขั้นตอนที่ 3 ของ 3 โปรดตั้งค่าต่อไปนี้:

  • 3.1 คุณสามารถยกเว้นเวิร์กชีตว่างทั้งหมดจากการผสานโดยการเลือก ข้ามไป จาก เมื่อเจอแผ่นงานเปล่า รายการแบบหล่นลง
  • 3.2 ตรวจสอบ แถวแรกของแผ่นงานแต่ละแผ่น (ความคิดเห็น) ตัวเลือกเพื่อแทรกข้อมูลเวิร์กชีทของเวิร์กชีทที่รวมกัน
  • 3.3 คุณสามารถเปลี่ยนชื่อแผ่นงานรวมใหม่ได้โดยการใส่ชื่อเวิร์กบุคก่อนหรือหลังชื่อเวิร์กชีตต้นฉบับหรือเพียงแค่เก็บชื่อเวิร์กชีตต้นฉบับด้วยการยกเลิกการเลือก โดยการใส่ชื่อสมุดงาน ตัวเลือก
  • 3.4 คลิกปุ่ม เสร็จสิ้น ปุ่ม

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

หมายเหตุ:

1 ระบบจะถามว่าคุณต้องการบันทึกภาพจำลองนี้หรือไม่ คลิก ใช่ เพื่อบันทึกตามที่คุณต้องการจากนั้นป้อนชื่อของภาพจำลอง (ดูภาพหน้าจอต่อไปนี้) หลังจากบันทึกภาพจำลองคุณจะต้องคลิกเท่านั้น สถานการณ์ เพื่อเลือกชื่อของภาพจำลองในตัวช่วยสร้าง step2 เพื่อใช้งานโดยตรง

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

3. หากชื่อเวิร์กชีตของคุณยาวเกินไปอาจเป็นชื่อที่มีอักขระมากกว่า 31 อักขระชื่อที่รวมกันจะไม่ปรากฏขึ้นและแสดงเฉพาะชื่อแผ่นงานต้นฉบับเท่านั้น

ปลายถ้าคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรีโปรดไปที่ ดาวน์โหลดซอฟต์แวร์ได้อย่างอิสระ จากนั้นไปที่การใช้งานตามขั้นตอนข้างต้น


แท็บ Office - การเรียกดูแบบแท็บการแก้ไขและการจัดการสมุดงานใน Excel:

แท็บ Office นำส่วนติดต่อแบบแท็บที่เห็นในเว็บเบราเซอร์เช่น Google Chrome, Internet Explorer เวอร์ชันใหม่และ Firefox ไปยัง Microsoft Excel มันจะเป็นเครื่องมือที่ช่วยประหยัดเวลาและไม่สามารถเปลี่ยนแปลงได้ในงานของคุณ ดูตัวอย่างด้านล่าง:

คลิกเพื่อทดลองใช้ Office Tab ฟรี!

แท็บ Office สำหรับ Excel

การสาธิต: รวมสมุดงานหลายชุดไว้ในสมุดงานเดียวกับ Kutools for Excel




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



เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ

แท็บ Office

gold star1 นำแท็บที่มีประโยชน์ไปยัง Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Internet Explorer ใหม่

Kutools สำหรับ Excel

gold star1 น่าทึ่ง! เพิ่มประสิทธิภาพการทำงานของคุณในอีก 5 นาที ไม่จำเป็นต้องมีทักษะพิเศษประหยัดสองชั่วโมงทุกวัน!

gold star1 300 คุณสมบัติใหม่สำหรับ Excel, Make Excel ง่ายมากและมีประสิทธิภาพ:

  • ผสานเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล
  • รวมและรวมแผ่นงานหลายแผ่นและสมุดงาน
  • เปรียบเทียบช่วง, คัดลอกหลายช่วง, แปลงข้อความเป็นวันที่, หน่วยและการแปลงสกุลเงิน
  • นับตามสี, เพจย่อยย่อย, การเรียงลำดับขั้นสูงและตัวกรอง Super,
  • เพิ่มเติมเลือก / แทรก / ลบ / ข้อความ / รูปแบบ / ลิงก์ / ความคิดเห็น / เวิร์คบุ๊ค / แผ่นงานเครื่องมือ ...

ภาพหน้าจอของ Kutools for Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    pat · 2 years ago
    I followed the instructions but when I Run a screen opens that lists Macros. I select GetSheets and Run but nothing happens.

    Sub GetSheets()
    Path = "G:\COM\Diabetes Center\Pat\Time Sheets\My time Sheet 2013"
    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
  • To post as a guest, your comment is unpublished.
    BWANG · 2 years ago
    Thanks. With some changes, the following works for me:

    Sub GetSheets() 'make sure the module is created in the current Excel spreadsheet "Weather data 201611.xlsx", not the "Personal.xlsb"
    Path = "C:\Weather Data\201611\" 'remember to change the file location here
    Filename = Dir(Path & "*.csv") ' .csv is the type of file while we wanted to open, change to xls or xlsx if required
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=False 'Depending on the files which we want to open, if it is a read only file then change to ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=Workbooks("Weather data 201611.xlsx").Sheets(1) 'Remember to change the file name to the file name while is new open for this module. Make sure the type match as well
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub
  • To post as a guest, your comment is unpublished.
    Rakesh G.B.Groups · 2 years ago
    i want to mix or update a excel file by a old file data and new file data
    please suggest me command

    Thank you
  • To post as a guest, your comment is unpublished.
    wackiemark · 2 years ago
    hello can anyone please help me with this problems in different codes.

    1.) copy all sheets in selected workbooks in a folder and paste it to current workbook. and if the worksheets have same sheetname, it will add a number e.g (1) on the side of the sheetname.

    2.) copy specific worksheet in selected workbooks and paste to current workbook, and if the worksheets have same sheetname, it will add a number e.g (1) on the side of the sheetname.

    thank you in advance
  • To post as a guest, your comment is unpublished.
    Ashwath · 2 years ago
    Hello, I tried this code for combining the files and it worked well. However I have a situation where in I have to combine the data from different sheets of multiple files in to one master file with multiple sheets.

    For ex: I have 10 different file and each file has data in Sheet 1 and Sheet 2. I want to create a consolidate data in to one master and all data from sheet 1 of multiple files should be consolidated in one sheet 1 of master and sheet 2 in sheet of master. Can this be done?