วิธีการรวมหลายแถวเป็นหนึ่งเดียวโดยยึดตามรายการที่ซ้ำกันใน Excel
บางทีคุณอาจมีข้อมูลภาพหน้าจอต่อไปนี้ในชื่อผลิตภัณฑ์คอลัมน์ A มีบางรายการที่ซ้ำกันและตอนนี้คุณต้องลบรายการที่ซ้ำกันในคอลัมน์ A แต่รวมค่าที่เกี่ยวข้องในคอลัมน์ B ดูภาพหน้าจอ:
คุณมีวิธีที่มีประสิทธิภาพในการแก้ปัญหานี้หรือไม่?
รวมแถวที่ซ้ำกันหลายแถวเข้าด้วยกันด้วยรหัส VBA
รวมแถวที่ซ้ำกันหลายแถวเป็นหนึ่ง Kutools for Excel
รวมแถวที่ซ้ำกันหลายแถวและรวม / เฉลี่ยค่าด้วย Kutools for Excel
รวมแถวที่ซ้ำกันหลายแถวเข้าด้วยกันด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณรวมแถวที่ซ้ำกันตามค่าของคอลัมน์ A และใช้รหัสต่อไปนี้สำหรับสองคอลัมน์เท่านั้น ดังนั้นหากคุณมีข้อมูลสองคอลัมน์รหัสนี้จะช่วยคุณได้
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: รวมหลายแถวเป็นหนึ่งเดียว
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่คุณต้องการรวมเข้าด้วยกัน ดูภาพหน้าจอ:
4. จากนั้นคลิก OKค่าในคอลัมน์ B ถูกรวมเป็นหนึ่งระเบียนและคั่นด้วยช่องว่าง
หมายเหตุ:
1. รหัสนี้สามารถทำลายข้อมูลเดิมได้เมื่อคุณใช้งานคุณควรสำรองข้อมูลก่อน
2. รหัสนี้ใช้กับสองคอลัมน์เท่านั้นหากคุณมีมากกว่าสองคอลัมน์รหัสนี้จะรวมเฉพาะสองคอลัมน์แรกและลบข้อมูลคอลัมน์อื่น ๆ เมื่อคุณใช้รหัสนี้คุณต้องระมัดระวัง
รวมแถวที่ซ้ำกันหลายแถวเป็นหนึ่ง Kutools for Excel
ตอนนี้รหัสข้างต้นมีข้อ จำกัด และความเสี่ยงมีวิธีที่สะดวกและปลอดภัยในการทำงานนี้ให้เสร็จหรือไม่ ด้วย Kutools สำหรับ Excel's แถวรวมขั้นสูง ยูทิลิตี้คุณสามารถลบแถวที่ซ้ำกันหลายแถวในคอลัมน์ที่คุณยึดตามและรวมหรือทำการคำนวณบางอย่างสำหรับระเบียนอื่น ๆ ในเซลล์ที่เหมาะสม
Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.
หลังจากติดตั้ง Kutools for Excel แล้วโปรดดำเนินการดังนี้:
1. เลือกข้อมูลช่วงที่คุณต้องการรวมรายการที่ซ้ำกัน
2. จากนั้นคลิก Kutools > ตัวแปลงเนื้อหา > แถวรวมขั้นสูง. ดูภาพหน้าจอ:
3. ใน แถวรวมขั้นสูง กล่องโต้ตอบเลือกชื่อคอลัมน์เป็นคอลัมน์หลักที่คุณต้องการรวมค่าตามจากนั้นคลิก คอลัมน์สำคัญ. ดูภาพหน้าจอ:
4. จากนั้นคลิกคอลัมน์ที่คุณต้องการรวมค่าไว้ในระเบียนเดียวจากนั้นคลิก รวมการดำเนินงาน และเลือก รวมกับตัวคั่นเท่านั้นและเลือกตัวคั่นหนึ่งตัวที่คุณต้องการเพื่อแยกค่าที่รวมกันออกจากรายการด้านขวา ดูภาพหน้าจอ:
5. หลังจากเสร็จสิ้นการตั้งค่าคลิก OKและข้อมูลของคุณจะถูกรวมตามคอลัมน์หลักและคั่นด้วยตัวคั่น
หมายเหตุ หากคุณไม่จำเป็นต้องตั้งค่าการดำเนินการสำหรับคอลัมน์ที่เหลือให้คงสถานะเริ่มต้นไว้
รวมแถวที่ซ้ำกันหลายแถวและรวม / เฉลี่ยค่าด้วย Kutools for Excel
ด้วยมัลติฟังก์ชั่นนี้ แถวรวมขั้นสูง ยูทิลิตี้คุณสามารถรวมแถวที่ซ้ำกันและทำการคำนวณบางอย่างสำหรับค่าได้เช่นกัน
1. เลือกข้อมูลช่วงที่คุณต้องการรวมรายการที่ซ้ำกัน
2. ไปที่ แถวรวมขั้นสูง กล่องโต้ตอบ;
- (1. ) เลือกชื่อคอลัมน์เป็นคอลัมน์หลักที่คุณต้องการคำนวณค่าคอลัมน์อื่นตามจากนั้นคลิก คอลัมน์สำคัญ;
- (2. ) เลือกคอลัมน์ที่คุณต้องการคำนวณหาค่าจากนั้นคลิก รวมการดำเนินงาน > รวมคำนวณจากนั้นเลือกประเภทการคำนวณที่คุณต้องการในกรณีนี้ฉันเลือก รวม. ดูภาพหน้าจอ:
3. หากคุณไม่จำเป็นต้องตั้งค่าการดำเนินการสำหรับคอลัมน์ที่เหลือเพียงแค่รักษาสถานะเริ่มต้นจากนั้นคลิก OKและค่าที่ซ้ำกันในคอลัมน์ A จะถูกรวมเข้าด้วยกันและค่าที่เกี่ยวข้องในคอลัมน์ B จะถูกรวมเข้าด้วยกัน ดูภาพหน้าจอ:
หมายเหตุ:
1. หากคุณตรวจสอบ ข้อมูลของฉันมีส่วนหัว ตัวเลือกส่วนหัวของคุณ (แถวแรก) ของช่วงจะถูกละเว้นเมื่อคุณใช้ยูทิลิตี้นี้
2. ใช้ค่าที่จัดรูปแบบ: มันจะรักษาการจัดรูปแบบของค่าหลังจากรวมเซลล์ที่ซ้ำกัน
3. ยูทิลิตี้นี้ไม่พร้อมใช้งานสำหรับการกรองข้อมูล
คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับฟังก์ชัน Advanced Combine Rows
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!