Bir sütundaki ölçütlere göre yinelenen satırları kolayca kaldırın ve yalnızca en yüksek değerleri Excel'de tutun

Aşağıda gösterilen ekran görüntüsü gibi bir tablonuz olduğunu varsayarsak. Ve bu yöntem, belirli bir sütuna göre yinelenen satırları kaldırmak ve en yüksek değerleri yalnızca Excel'deki başka bir sütunda tutmak için bir VBA makrosu sunacaktır. Lütfen aşağıdaki işlemleri yapın:

1. Tuşuna basın. Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için aynı anda tuşlarına basın.

2. tık Ekle > modülve aşağıdaki kodu yeni açılan Modül penceresine yapıştırın.

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. Tuşuna basın. F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Şimdi bir iletişim kutusu çıkar. Lütfen yinelenen satırları kaldıracağınız ve en yüksek değerleri ayıracağınız sütunları seçin ve OK düğmesine basın.

Bizim durumumuzda, yinelenen satırları Meyve Sütunu ile kaldıracağız ve en yüksek değerleri Miktar Sütununda tutacağız, bu nedenle Meyve sütununu ve Miktar sütununu yukarıda gösterilen ekran görüntüsü gibi seçiyorum.

Ardından, Meyve sütununa göre yinelenen satırların kaldırıldığını ve ilgili meyvelerin en yüksek değerlerinin Miktar sütununda tutulduğunu göreceksiniz. Ekran görüntüsüne bakın:

notlar:

(1) Belirtilen aralık, yinelenen satırları kaldıracağınız sütunla başlamalıdır.

(2) Bu VBA, yalnızca yinelenen satırları kaldırdığınız sütunun hemen arkasındaki sütunda en yüksek değerleri tutabilir.

(3) Bu VBA, Microsoft Excel 2007'de çalışmaz.

Yukarıdaki VBA, bazı kullanıcılar için yeterince kolay olmayabilir ve en yüksek değerleri yalnızca ölçütler sütununun arkasındaki sütunda tutabilir. Ancak Kutools for Excel's Gelişmiş Kombine Satırları yardımcı program bu sorunu kolayca çözmenize yardımcı olacaktır.

1. Yinelenen satırları kaldıracağınız ve en yüksek değerleri tutacağınız tabloyu seçin (bizim durumumuzda A1: C24'ü seçin) ve tıklayın Kutools > içerik > Gelişmiş Kombine Satırları.

2. Sütuna Dayalı Satırları Birleştir iletişim kutusunu açarken, lütfen aşağıdaki gibi yapılandırın:

(1) Meyve sütununu seçin (yinelenen satırları kaldıracağınız) ve ardından Birincil anahtar düğmesi;

(2) Miktar sütununu (En yüksek değerleri tutacağınız) seçin ve ardından Hesaplanmış > maksimum.

(3) İhtiyaç duyduğunuz diğer sütunlar için kombinasyon kurallarını belirtin.

3. Tıklayın Ok buton. Ve sonra, tüm yinelenen satırların Meyve Sütununa göre kaldırıldığını ve ilgili meyvelerin yalnızca maksimum değerlerinin Miktar sütununda tutulduğunu göreceksiniz. Ekran görüntüsüne bakın:

The Gelişmiş Kombine Satırları Kutools for Excel'in faydası, satırları bir sütuna göre kolayca birleştirebilir ve daha sonra bu sütunlara göre diğer sütunları da hesaplayabilir, örneğin Toplam, Sayım, Maks, Min, Ürün vb. 60 günlük ücretsiz deneme için tıklayın, sınırlama yok!