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

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

doc ผสานคอลัมน์ตามคอลัมน์เดียว 3

3. หลังจากเลือกช่วงการทำงานแล้วให้คลิก OK. ตอนนี้ข้อมูลถูกรวมเข้ากับคอลัมน์แรกและรวมค่าในคอลัมน์ที่สอง

doc ผสานคอลัมน์ตามคอลัมน์เดียว 4

หมายเหตุ: รหัส VBA นี้สามารถทำงานได้อย่างถูกต้องเมื่อรวมตามคอลัมน์แรกและค่าผลรวมในคอลัมน์ที่สอง


ลูกศรสีฟ้าฟองขวา ผสานแถวตามหนึ่งคอลัมน์จากนั้นรวมค่าด้วย Advanced Combine Rows

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

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

1. เลือกข้อมูลที่คุณต้องการใช้และคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง. ดูภาพหน้าจอ:

doc ขั้นสูงรวมแถว 1

2. จากนั้นในกล่องโต้ตอบ popping ให้เลือกคอลัมน์ที่คุณจะรวมคอลัมน์อื่น ๆ ตามจากนั้นคลิก ประถม คีย์แล้วคลิกคอลัมน์อื่นแล้วคลิก คำนวณ จากนั้นเลือก รวม.

ปลาย: หากช่วงที่คุณเลือกมีส่วนหัวให้เลือก ข้อมูลของฉันมีส่วนหัวและตรวจสอบ ใช้ค่าที่จัดรูปแบบ จะคงการจัดรูปแบบไว้หลังจากการรวม

doc ผสานคอลัมน์ตามคอลัมน์เดียว 6

3 จากนั้นคลิก Ok. ตอนนี้ข้อมูลได้รับการรวมตามคอลัมน์หลักแล้วและอีกคอลัมน์หนึ่งจะสรุปได้ ดูภาพหน้าจอ:

doc ผสานคอลัมน์ตามคอลัมน์เดียว 7


ลูกศรสีฟ้าฟองขวา ผสานแถวตามคอลัมน์เดียวจากนั้นดำเนินการที่แตกต่างกันกับคอลัมน์อื่น ๆ ด้วย Advanced Combine Rows

แถวรวมขั้นสูง มีประสิทธิภาพเพราะไม่เพียง แต่สามารถรวมแถวที่ซ้ำกันในคอลัมน์เดียวจากนั้นรวมคอลัมน์อื่น แต่ยังสามารถรวมแถวที่ซ้ำกันในคอลัมน์เดียวจากนั้นทำการดำเนินการที่แตกต่างกันในคอลัมน์อื่น ๆ

สมมติว่าฉันมีช่วงข้อมูลตามภาพด้านล่างที่แสดงและฉันต้องการรวมค่าในคอลัมน์ B และรวมค่าในคอลัมน์ C ตามคอลัมน์ A
doc ผสานคอลัมน์ตามคอลัมน์เดียว 8

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

1. เลือกช่วงข้อมูลแล้วคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูง. ดูภาพหน้าจอ:

doc ขั้นสูงรวมแถว 1

2 ใน รวมแถวตามคอลัมน์ โต้ตอบทำดังนี้:

(1) คลิกที่คอลัมน์ที่คุณต้องการรวมจากนั้นคลิก คีย์หลัก;

doc ผสานคอลัมน์ตามคอลัมน์เดียว 10

(2) คลิกที่คอลัมน์ที่คุณต้องการรวมข้อมูลแล้วคลิก รวมกันจากนั้นเลือกตัวคั่นที่คุณต้องการจากรายการ

doc ผสานคอลัมน์ตามคอลัมน์เดียว 11

(3) คลิกที่คอลัมน์ที่คุณต้องการรวมค่าแล้วคลิก คำนวณและเลือก รวม.

doc ผสานคอลัมน์ตามคอลัมน์เดียว 12

3 คลิก Ok. ตอนนี้คุณสามารถเห็นผลลัพธ์ดังต่อไปนี้:

doc ผสานคอลัมน์ตามคอลัมน์เดียว 13

กับ แถวรวมขั้นสูง คุณยังสามารถรวมแถวตามคอลัมน์หนึ่งคอลัมน์แล้วนับเฉลี่ยเก็บข้อมูลที่ 1 หรือสุดท้ายในคอลัมน์อื่น ๆ 

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

🤖 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same/similar question. I am trying to sum all of the columns to the right of the reference cell but it only sums the one. How do I get it to sum all those to the right individually?
This comment was minimized by the moderator on the site
Hey, your module used to work for big tables as well (eg. you want to sum up according to Year but you have Sales 1, Sales 2, Sales 3....etc). But now it only gets the first column right (Sales 1) and all others are not summed correctly. Did you change anything?
Thanks!
This comment was minimized by the moderator on the site
Hi, IK, maybe you can use the sumproduct function SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) to calculate them one by one. A2:A10 is the range contain the lookup value, pen is the criterion, B2:E10 is range that you want to sum based on criterion.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations