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

วิธีลบแถวที่ซ้ำกันและเก็บค่าสูงสุดไว้ใน Excel เท่านั้น?

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

ลบแถวที่ซ้ำกันและเก็บค่าสูงสุดด้วย VBA เท่านั้น

ลบแถวที่ซ้ำกันและเก็บค่าสูงสุดด้วย Kutools for Excel เท่านั้น

ลบแถวที่ซ้ำกันอย่างง่ายดายตามเกณฑ์ในคอลัมน์เดียวและเก็บเฉพาะค่าสูงสุดใน Excel

Kutools สำหรับ Excel's แถวรวมขั้นสูง ยูทิลิตี้สามารถช่วยให้ผู้ใช้ Excel ค้นหาค่าสูงสุดของค่าต่ำสุดของแต่ละรายการในคอลัมน์อื่นได้อย่างรวดเร็ว

โฆษณาขั้นสูงรวมแถวสูงสุด

ยูทิลิตี้การรวมแถวขั้นสูงนี้ยังสามารถรวมแถวและค่าแยกตามเครื่องหมายที่ระบุหรือรวมแถวและคำนวณผลรวมจำนวนครั้งที่เกิดขึ้นค่าสูงสุด / ต่ำสุดค่าเฉลี่ย ฯลฯ


สมมติว่าคุณมีตารางตามภาพด้านล่างที่แสดง และวิธีนี้จะแนะนำแมโคร VBA เพื่อลบแถวที่ซ้ำกันตามคอลัมน์บางคอลัมน์และเก็บค่าสูงสุดไว้ในคอลัมน์อื่นใน Excel เท่านั้น กรุณาดำเนินการดังนี้:

1 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูลการเปิดใหม่

VBA: ลบแถวที่ซ้ำกันและเก็บค่าสูงสุด

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3 กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้

4. ตอนนี้กล่องโต้ตอบปรากฏขึ้น โปรดเลือกคอลัมน์ที่คุณจะลบแถวที่ซ้ำกันและสงวนค่าสูงสุดไว้แล้วคลิก OK ปุ่ม

ในกรณีของเราเราจะลบแถวที่ซ้ำกันตามคอลัมน์ผลไม้และเก็บค่าสูงสุดไว้ในคอลัมน์จำนวนเงินดังนั้นฉันจึงเลือกคอลัมน์ผลไม้และคอลัมน์จำนวนตามภาพด้านบนที่แสดง

จากนั้นคุณจะเห็นแถวที่ซ้ำกันถูกลบออกตามคอลัมน์ผลไม้และค่าสูงสุดของผลไม้ที่เกี่ยวข้องจะถูกเก็บไว้ในคอลัมน์จำนวน ดูภาพหน้าจอ:

หมายเหตุ / รายละเอียดเพิ่มเติม:

(1) ช่วงที่ระบุต้องเริ่มต้นด้วยคอลัมน์ที่คุณจะลบแถวที่ซ้ำกันโดย

(2) VBA นี้สามารถเก็บเฉพาะค่าสูงสุดในคอลัมน์ด้านหลังคอลัมน์ที่คุณลบแถวที่ซ้ำกันออกไป

(3) VBA นี้ไม่ทำงานใน Microsoft Excel 2007


VBA ข้างต้นอาจไม่ง่ายพอสำหรับผู้ใช้บางรายและสามารถเก็บค่าสูงสุดในคอลัมน์หลังคอลัมน์เกณฑ์ได้เท่านั้น แต่ Kutools สำหรับ Excel's แถวรวมขั้นสูง ยูทิลิตี้จะช่วยให้คุณแก้ปัญหานี้ได้อย่างง่ายดาย

Kutools สำหรับ Excel - เต็มไปด้วยเครื่องมือที่จำเป็นสำหรับ Excel มากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! ดาวน์โหลดเดี๋ยวนี้!

1. เลือกตารางที่คุณจะลบแถวที่ซ้ำกันและเก็บค่าสูงสุดไว้ (เลือก A1: C24 ในกรณีของเรา) แล้วคลิก Kutools > คอนเทนต์ > แถวรวมขั้นสูง.

2. ในการเปิดรวมแถวตามคอลัมน์โปรดกำหนดค่าดังนี้:

(1) เลือกคอลัมน์ผลไม้ (ซึ่งคุณจะลบแถวที่ซ้ำกันโดย) จากนั้นคลิกที่ คีย์หลัก ปุ่ม;

(2) เลือกคอลัมน์จำนวนเงิน (ซึ่งคุณจะเก็บค่าสูงสุดไว้) จากนั้นคลิก คำนวณ > แม็กซ์.

(3) ระบุกฎการรวมสำหรับคอลัมน์อื่น ๆ ตามที่คุณต้องการ

doc ลบรายการที่ซ้ำกันให้มีค่าสูงสุด 2

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

พื้นที่ แถวรวมขั้นสูง ยูทิลิตี้ของ Kutools for Excel สามารถรวมแถวทีละคอลัมน์ได้อย่างง่ายดายจากนั้นคำนวณคอลัมน์อื่น ๆ ตามคอลัมน์นี้เช่น Sum, Count, Max, Min, Product เป็นต้น คลิกเพื่อทดลองใช้ฟรี 60 วันไม่มีข้อ จำกัด !


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

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

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

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

kte แท็บ 201905


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations