Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีการรวมหลายแถวเป็นหนึ่งเดียวโดยยึดตามรายการที่ซ้ำกันใน Excel

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

doc ขั้นสูงรวม 1 -2 doc ขั้นสูงรวม 2

คุณมีวิธีที่มีประสิทธิภาพในการแก้ปัญหานี้หรือไม่?

รวมแถวที่ซ้ำกันหลายแถวเข้าด้วยกันด้วยรหัส VBA

รวมแถวที่ซ้ำกันหลายแถวเป็นหนึ่ง Kutools for Excel

รวมแถวที่ซ้ำกันหลายแถวและรวม / เฉลี่ยค่าด้วย Kutools for Excel

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

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

doc ขั้นสูงรวม 3

4. จากนั้นคลิก OKค่าในคอลัมน์ B ถูกรวมเป็นหนึ่งระเบียนและคั่นด้วยช่องว่าง

doc ขั้นสูงรวม 4

หมายเหตุ:

1. รหัสนี้สามารถทำลายข้อมูลเดิมได้เมื่อคุณใช้งานคุณควรสำรองข้อมูลก่อน

2. รหัสนี้ใช้กับสองคอลัมน์เท่านั้นหากคุณมีมากกว่าสองคอลัมน์รหัสนี้จะรวมเฉพาะสองคอลัมน์แรกและลบข้อมูลคอลัมน์อื่น ๆ เมื่อคุณใช้รหัสนี้คุณต้องระมัดระวัง


ลูกศรสีฟ้าฟองขวารวมแถวที่ซ้ำกันหลายแถวเป็นหนึ่ง Kutools for Excel

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

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

หลังจากติดตั้ง Kutools for Excel แล้วโปรดดำเนินการดังนี้:

1. เลือกข้อมูลช่วงที่คุณต้องการรวมรายการที่ซ้ำกัน

doc ขั้นสูงรวม 5

2. จากนั้นคลิก Kutools > ตัวแปลงเนื้อหา > แถวรวมขั้นสูง. ดูภาพหน้าจอ:

doc ขั้นสูงรวม 6

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

doc ขั้นสูงรวม 7

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

doc ขั้นสูงรวม 8

5. หลังจากเสร็จสิ้นการตั้งค่าคลิก OKและข้อมูลของคุณจะถูกรวมตามคอลัมน์หลักและคั่นด้วยตัวคั่น

doc ขั้นสูงรวม 9

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


ลูกศรสีฟ้าฟองขวารวมแถวที่ซ้ำกันหลายแถวและรวม / เฉลี่ยค่าด้วย Kutools for Excel

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

1. เลือกข้อมูลช่วงที่คุณต้องการรวมรายการที่ซ้ำกัน

2. ไปที่ แถวรวมขั้นสูง กล่องโต้ตอบ;

  • (1. ) เลือกชื่อคอลัมน์เป็นคอลัมน์หลักที่คุณต้องการคำนวณค่าคอลัมน์อื่นตามจากนั้นคลิก คอลัมน์สำคัญ;
  • (2. ) เลือกคอลัมน์ที่คุณต้องการคำนวณหาค่าจากนั้นคลิก รวมการดำเนินงาน > รวมคำนวณจากนั้นเลือกประเภทการคำนวณที่คุณต้องการในกรณีนี้ฉันเลือก รวม. ดูภาพหน้าจอ:

doc ขั้นสูงรวม 10

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

doc ขั้นสูงรวม 11 -2 doc ขั้นสูงรวม 12

หมายเหตุ:

1. หากคุณตรวจสอบ ข้อมูลของฉันมีส่วนหัว ตัวเลือกส่วนหัวของคุณ (แถวแรก) ของช่วงจะถูกละเว้นเมื่อคุณใช้ยูทิลิตี้นี้

2. ใช้ค่าที่จัดรูปแบบ: มันจะรักษาการจัดรูปแบบของค่าหลังจากรวมเซลล์ที่ซ้ำกัน

3. ยูทิลิตี้นี้ไม่พร้อมใช้งานสำหรับการกรองข้อมูล

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับฟังก์ชัน Advanced Combine Rows


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

รวมแถวที่ซ้ำกันและรวมค่า


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
Say something here...
symbols left.
You are guest
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.
    Ashley · 3 years ago
    I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

    Sample Data
    Reece, Ashley G01-Registered-UWG
    Reece, Chris G02-Registered-KSU
    Reece, Chris G03-Dropped-KSU
    Reece, Jayden G02-Registered-UNG
    Reece, Jayden G02-Withdrawn-UNG
  • To post as a guest, your comment is unpublished.
    Muveen · 4 years ago
    I have in column A

    1 Cast
    2 Crew
    3 Hiring
    4 Cast
    5 Hiring
    6 Crew

    I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

    Ex: I need (after formula)

    1 Cast
    2 Crew
    3 Hiring

    Is it possible by formula?
  • To post as a guest, your comment is unpublished.
    Ilaiyaraja · 5 years ago
    Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 2 months ago
      Same - 2021 and this still only works if you have like 20 rows...
  • To post as a guest, your comment is unpublished.
    David Greene · 7 years ago
    I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
    • To post as a guest, your comment is unpublished.
      NewYears1978 · 2 months ago
      Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)

      I kept cutting down to less and less data to see if it would work but it still would not.

      The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
    • To post as a guest, your comment is unpublished.
      JP · 2 months ago
      Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
    • To post as a guest, your comment is unpublished.
      Admin-jay · 7 years ago
      [quote name="David Greene"]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?[/quote]
      Sorry, we will fix it in next version.