ไปยังเนื้อหาหลัก

วิธีรวบรวมข้อมูลจากแผ่นงานหลายแผ่นไปยังแผ่นงานหลักใน Excel

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

รวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวด้วยฟังก์ชัน Consolidate

รวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวด้วยรหัส VBA

รวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวด้วยฟังก์ชัน Combine ที่มีประสิทธิภาพความคิดที่ดี 3


รวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวด้วยฟังก์ชัน Consolidate

ถ้าคุณต้องการรวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวในสมุดงานเดียวกันคุณสามารถใช้ฟังก์ชัน Consolidate ใน Excel ได้

1. ในแผ่นงานใหม่ของสมุดงานที่คุณต้องการรวบรวมข้อมูลจากแผ่นงานให้คลิก ข้อมูล > รวบรวม.
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 1

2 ใน Consolidate โต้ตอบทำดังนี้:

(1 เลือกหนึ่งการดำเนินการที่คุณต้องการทำหลังจากรวมข้อมูลเข้า ฟังก์ชัน รายการแบบหล่นลง

(2 คลิก ปุ่มเลือกเอกสาร เพื่อเลือกช่วงของแต่ละแผ่นงานที่คุณต้องการรวบรวม

(3 คลิก Add เพื่อเพิ่มช่วงข้อมูลลงในไฟล์ All references กล่องรายการ;

(4 ตรวจสอบฉลากที่คุณใช้หลังจากรวมข้อมูลแล้วตรวจสอบ Create links to source data ถ้าคุณต้องการเชื่อมโยงข้อมูลในแผ่นงานรวมกับแหล่งข้อมูล
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 2

3 คลิก OK. ตอนนี้ข้อมูลถูกรวบรวมและรวมไว้ในแผ่นเดียว
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 3


รวมหลายแผ่นงาน / สมุดงานเป็นแผ่นงานเดียวหรือสมุดงาน

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

รวบรวมข้อมูลจากแผ่นงานหลายแผ่นเป็นแผ่นเดียวด้วยรหัส VBA

นี่คือรหัส VBA ที่สามารถรวบรวมข้อมูลจากแผ่นงานทั้งหมดในแผ่นงานใหม่ในสมุดงานปัจจุบัน

1 กด Alt + F11 กุญแจสำคัญในการเปิดใช้งานไฟล์ Microsoft Visual Basic for Applications หน้าต่าง

2 คลิก Insert > Moduleและคัดลอกและวางโค้ดด้านล่างลงในไฟล์ Module ต้นฉบับ

VBA: รวบรวมข้อมูลทั้งหมดจากแผ่นงานเป็นหนึ่งเดียว

Sub Combine()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 4

3 กด F5 กุญแจสำคัญในการรันโค้ด ข้อมูลทั้งหมดของสมุดงานทั้งหมดได้ถูกรวบรวมไว้ในแผ่นงานใหม่รวมกัน
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 5


รวบรวมข้อมูลจากหลายชีตเป็นหนึ่งเดียวอย่างมีประสิทธิภาพ Combine ฟังก์ชัน

หากคุณมักจะต้องรวมแผ่นงานเป็นแผ่นเดียว ฉันขอแนะนำฟังก์ชันรวมอันทรงพลังฟังก์ชันหนึ่งสำหรับคุณ Kutools สำหรับ Excel's รวมกัน ยูทิลิตี้ซึ่งมีฟังก์ชันหลักสี่ประการด้านล่าง:

รวมแผ่นงานหลายแผ่นจากสมุดงานเป็นแผ่นงานเดียว

รวมเวิร์กชีตชื่อเดียวกันทั้งหมดไว้ในเวิร์กชีตเดียว

รวมแผ่นงานหลายแผ่นจากสมุดงานไว้ในสมุดงานเดียว

รวมและคำนวณค่าจากสมุดงานหลายเล่มเป็นแผ่นงานเดียว

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

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

ถ้าคุณต้องการ รวมกัน แผ่นงานเป็นแผ่นเดียวโดยไม่ต้องดำเนินการอื่นใด คุณสามารถดำเนินการได้ดังนี้:

1. เปิดใช้งาน Excel คลิก Kutools Plus > Combineจะมีกล่องโต้ตอบหนึ่งหรือสองรายการปรากฏขึ้นเพื่อเตือนให้คุณทราบ เพียงคลิก OK และ ใช่ ดำเนินการต่อไป. ดูภาพหน้าจอ:

2 คลิก OK ไป Combine หน้าต่างตรวจสอบ Combine multiple worksheets from workbook into worksheet ตัวเลือก

3 คลิก Nextจากนั้นคลิก Add > File / Folder เพื่อเพิ่มสมุดงานที่คุณจะใช้ในการรวมเข้าใน Workbook list. จากนั้นไปที่ Worksheet list เพื่อตรวจสอบแผ่นงานที่คุณต้องการรวมจากสมุดงานแต่ละเล่ม

4 คลิก Next เพื่อไปที่ขั้นตอนสุดท้าย คุณสามารถระบุการตั้งค่าบางอย่างเกี่ยวกับผลลัพธ์การรวมได้ตามที่คุณต้องการ หากคุณไม่ต้องการขั้นตอนนี้

5 คลิก Finish และเลือกหนึ่งโฟลเดอร์เพื่อวางสมุดงานใหม่ซึ่งรวมข้อมูลจากแผ่นงาน
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 13

6 คลิก ลด. ขณะนี้ข้อมูลทั้งหมดได้รับการรวบรวมจากแผ่นงานต่างๆ ในสมุดงานมาไว้ในแผ่นงานหลักแผ่นเดียว
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 14

ถ้าคุณต้องการ รวบรวม แผ่นงานระหว่างสมุดงานเป็นหนึ่งเดียว ให้ทำดังนี้:

1 ใน Combine หน้าต่างตรวจสอบ Consolidate and calculate values across multiple worksheets into one worksheet ตัวเลือก

2 คลิก Nextและเพิ่มไฟล์เข้าไป Workbook listจากนั้นตรวจสอบแผ่นงานที่คุณใช้ในการรวมและคำนวณ

3 คลิก Nextจากนั้นเลือกการคำนวณหนึ่งรายการจาก Function รายการแบบเลื่อนลง และตรวจสอบตัวเลือกอื่นๆ ตามที่คุณต้องการ

4 คลิก Finish เพื่อบันทึกเวิร์กบุ๊กใหม่ลงในโฟลเดอร์

ขณะนี้แผ่นงานในสมุดงานต่างๆ ได้รับการรวมและคำนวณเป็นแผ่นงานเดียวแล้ว
doc รวบรวมแผ่นงานเป็นแผ่นเดียว 18


Kutools for Excel: 300 ฟังก์ชันที่คุณต้องมีใน Excel ทดลองใช้ฟรี 30 วันจากที่นี่

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the VBA code - it works well! How can I extend the code so that when the sheets are combined that they are combined as values? I am running into some issues with circular reference issues when I try to interact with the combined sheet.
This comment was minimized by the moderator on the site
The VBA code works perfectly! , how can i edit it so it skips the first page in my workbook and merges the remaining pages?
This comment was minimized by the moderator on the site
Hi,
I'm trying to accomplish the following:
Get data from multiple tabs in a specific cell range (B3-E169).
Data would be compiled in columns...i.e., column B copies into column B on new spreadsheet, column C copies into column C on new spreadsheet, etc.
If there are more than two blank columns in B, stop & move onto next worksheet and get same data.
The result that I'm trying to get is a material list from different categories (hence the different tabs).

This is how I think it should work:
Lookup WS1 column B3-B169.
If two blank columns, Lookup WS2 column B3-B169,
If two blank columns, Lookup WS3 column B3-B169, etc.

WS2 should skip a space/column & come in underneath WS1.
WS3 should skip a space/column & come in underneath WS2,.etc.

Repeat or columns C, D & E
This comment was minimized by the moderator on the site
hmm your VBA code removes the last row from individual sheet when combined .. any idea how to solve this issue?
This comment was minimized by the moderator on the site
any answer for this?
This comment was minimized by the moderator on the site
How do you make your VBA overwrite the compiled data onto the same master list, rather than add a new sheet?
This comment was minimized by the moderator on the site
De que forma se puede obtener solo el valor de las hojas y llevarla a la hoja que se va a resumir todo, por ejemplo, en caso de que una hoja de las que se van a combinar exista una celda calculada o que dependa de otra hoja, por eso pregunto si se puede llevar solo los valores.
This comment was minimized by the moderator on the site
Sorry, could you repeat your quetion in English?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations