วิธีผสานแถวอย่างรวดเร็วตามค่าหนึ่งคอลัมน์จากนั้นทำการคำนวณบางอย่างใน Excel
ตัวอย่างเช่นคุณมีช่วงของข้อมูลและคอลัมน์หนึ่งมีรายการที่ซ้ำกันตอนนี้คุณต้องการรวมแถวที่ฐานคอลัมน์ A (มีรายการที่ซ้ำกัน) จากนั้นทำการคำนวณบางส่วนกับคอลัมน์อื่นตามแถวที่ผสานดังภาพหน้าจอ:
ใน Excel ไม่มีวิธีการที่รวดเร็วในการรวมแถวตามค่าคอลัมน์เดียว แต่ที่นี่ฉันแนะนำไฟล์
เทคนิคที่สามารถช่วยให้คุณรวมแถวที่ซ้ำกันแล้วรวมหรือทำการคำนวณอื่น ๆ ในคอลัมน์อื่น
ผสานแถวตามหนึ่งคอลัมน์จากนั้นรวมค่าด้วย VBA
มีรหัส VBA สามารถช่วยคุณในการรวมแถวที่ซ้ำกันจากนั้นรวมค่าคอลัมน์อื่น
การเรียกดูแบบแท็บและแก้ไขสมุดงาน Excel / เอกสาร Word หลายรายการเช่น Firefox, Chrome, Internet Explore 10! |
คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox / Chrome / IE และสลับไปมาระหว่างหน้าเว็บเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้องได้อย่างง่ายดาย ที่นี่ Office Tab รองรับการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูสมุดงาน Excel หรือเอกสาร Word หลายรายการในหน้าต่าง Excel หรือหน้าต่าง Word เดียวและสลับไปมาระหว่างกันได้อย่างง่ายดายโดยคลิกที่แท็บ คลิ๊กฟรี 30วันทดลองใช้ Office Tab! |
1 กด F11 + อัลเทอร์เนทีฟ คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล และคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง
VBA: รวมแถวตามค่าคอลัมน์เดียว
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub
2 กด F5 หรือคลิก วิ่ง เพื่อเรียกใช้ VBA และกล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกช่วงข้อมูลที่จะทำงาน ดูภาพหน้าจอ:
3. หลังจากเลือกช่วงการทำงานแล้วให้คลิก OK. ตอนนี้ข้อมูลถูกรวมเข้ากับคอลัมน์แรกและรวมค่าในคอลัมน์ที่สอง
หมายเหตุ: รหัส VBA นี้สามารถทำงานได้อย่างถูกต้องเมื่อรวมตามคอลัมน์แรกและค่าผลรวมในคอลัมน์ที่สอง
ผสานแถวตามหนึ่งคอลัมน์จากนั้นรวมค่าด้วย Advanced Combine Rows
หากคุณไม่คุ้นเคยกับรหัส VBA คุณสามารถใช้ไฟล์ แถวรวมขั้นสูง คุณลักษณะของเครื่องมือเสริมส่วนที่สาม - Kutools สำหรับ Excel เพื่อรวมแถวที่ซ้ำกันอย่างง่ายดายและรวดเร็วจากนั้นรวมค่าในคอลัมน์อื่น
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
1. เลือกข้อมูลที่คุณต้องการใช้และคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง. ดูภาพหน้าจอ:
2. จากนั้นในกล่องโต้ตอบ popping ให้เลือกคอลัมน์ที่คุณจะรวมคอลัมน์อื่น ๆ ตามจากนั้นคลิก ประถม คีย์แล้วคลิกคอลัมน์อื่นแล้วคลิก คำนวณ จากนั้นเลือก รวม.
ปลาย: หากช่วงที่คุณเลือกมีส่วนหัวให้เลือก ข้อมูลของฉันมีส่วนหัวและตรวจสอบ ใช้ค่าที่จัดรูปแบบ จะคงการจัดรูปแบบไว้หลังจากการรวม
3 จากนั้นคลิก Ok. ตอนนี้ข้อมูลได้รับการรวมตามคอลัมน์หลักแล้วและอีกคอลัมน์หนึ่งจะสรุปได้ ดูภาพหน้าจอ:
ผสานแถวตามคอลัมน์เดียวจากนั้นดำเนินการที่แตกต่างกันกับคอลัมน์อื่น ๆ ด้วย Advanced Combine Rows
แถวรวมขั้นสูง มีประสิทธิภาพเพราะไม่เพียง แต่สามารถรวมแถวที่ซ้ำกันในคอลัมน์เดียวจากนั้นรวมคอลัมน์อื่น แต่ยังสามารถรวมแถวที่ซ้ำกันในคอลัมน์เดียวจากนั้นทำการดำเนินการที่แตกต่างกันในคอลัมน์อื่น ๆ
สมมติว่าฉันมีช่วงข้อมูลตามภาพด้านล่างที่แสดงและฉันต้องการรวมค่าในคอลัมน์ B และรวมค่าในคอลัมน์ C ตามคอลัมน์ A
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
1. เลือกช่วงข้อมูลแล้วคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง. ดูภาพหน้าจอ:
2 ใน รวมแถวตามคอลัมน์ โต้ตอบทำดังนี้:
(1) คลิกที่คอลัมน์ที่คุณต้องการรวมจากนั้นคลิก คีย์หลัก;
(2) คลิกที่คอลัมน์ที่คุณต้องการรวมข้อมูลแล้วคลิก รวมกันจากนั้นเลือกตัวคั่นที่คุณต้องการจากรายการ
(3) คลิกที่คอลัมน์ที่คุณต้องการรวมค่าแล้วคลิก คำนวณและเลือก รวม.
3 คลิก Ok. ตอนนี้คุณสามารถเห็นผลลัพธ์ดังต่อไปนี้:
กับ แถวรวมขั้นสูง คุณยังสามารถรวมแถวตามคอลัมน์หนึ่งคอลัมน์แล้วนับเฉลี่ยเก็บข้อมูลที่ 1 หรือสุดท้ายในคอลัมน์อื่น ๆ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!