كيفية إزالة صف مكرر والاحتفاظ بأعلى القيم فقط في Excel؟

افترض أن لديك جدولًا كما هو موضح في لقطة الشاشة أدناه. يقدم لك هذا الأسلوب ماكرو VBA لإزالة الصفوف المكررة استنادًا إلى عمود معين، مع الاحتفاظ فقط بالصف الذي يحتوي على أعلى قيمة في عمود آخر في Excel. يُرجى اتباع الخطوات التالية:

1. اضغط علىAlt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. انقرInsert > Module، ثم الصق الكود التالي في نافذة الـ Module الجديدة التي تفتح.

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 أو انقر على زرRun لتشغيل هذا الكود البرمجي VBA.

4. الآن ستظهر نافذة حوارية. يرجى تحديد الأعمدة التي تريد إزالة التكرارات منها والاحتفاظ بأعلى القيم فيها، ثم انقر على زرOK.

في حالتنا، سنقوم بإزالة الصف المكرر استنادًا إلى عمود الفاكهة (Fruit Column) مع الاحتفاظ بأعلى قيمة في عمود الكمية (Amount Column)، ولذلك اخترتُ عمود الفاكهة وعمود الكمية كما هو موضح في لقطة الشاشة أعلاه.

بعد ذلك، سترى أن الصف المكرر قد أُزيل استنادًا إلى عمود الفاكهة، مع الاحتفاظ بأعلى قيمة للكمية الخاصة بكل فاكهة. انظر لقطة الشاشة:

ملاحظات:

(1) يجب أن يبدأ النطاق المحدد بالعمود الذي ستعتمد عليه لإزالة الصفوف المكررة.

(2) يمكن لهذا الكود البرمجي VBA الاحتفاظ بأعلى القيم فقط في العمود الموجود مباشرةً بعد العمود المستخدم لإزالة الصف المكرر.

(3) لا يعمل كود VBA هذا في Microsoft Excel 2007.

قد لا يكون كود VBA أعلاه سهل الاستخدام بما يكفي لبعض المستخدمين، كما أنه لا يستطيع الاحتفاظ بأعلى القيم إلا في العمود الذي يلي عمود المعايير مباشرةً. لكن أداةدمج متقدم للصفوفمن Kutools لـ Excel ستساعدك على حل هذه المشكلة بسهولة.

1. حدد الجدول الذي تريد تنفيذ عملية إزالة الصفوف المكررة عليه مع الاحتفاظ بأعلى القيم (في مثالنا، حدد A1:C24)، ثم انقر علىKutools > دمج وتقسيم > دمج متقدم للصفوف.

2. في مربع الحوار «دمج الصفوف Based on Column» الذي يفتح، يُرجى التهيئة كما يلي:

(1) حدد عمود الفاكهة (الذي ستعتمد عليه لإزالة الصفوف المكررة)، ثم انقر على زرPrimary Key.

(2) حدد عمود الكمية (الذي ستحتفظ فيه بأعلى القيم)، ثم انقر علىCalculate > Max.

(3) حدد قواعد الدمج للأعمدة الأخرى وفقًا لاحتياجاتك.

3. انقر على زرOk، ثم سترى أن جميع الصفوف المكررة قد أُزيلت استنادًا إلى عمود الفاكهة، وتم الاحتفاظ فقط بالقيمة العليا لكل فاكهة في عمود الكمية. انظر لقطة الشاشة:

يمكن لأداةدمج متقدم للصفوفمن Kutools لـ Excel أن تقوم بسهولة بـ دمج الصفوف استنادًا إلى عمود واحد، ثم تحسب القيم في الأعمدة الأخرى بناءً على هذا العمود، مثل الجمع (Sum) أو العد (Count) أو القيمة العظمى (Max) أو القيمة الصغرى (Min) أو الضرب (Product) وغيرها.انقر للحصول على نسخة تجريبية مجانية لمدة 60 يومًا بدون أي قيود!