Excel'de yinelenen satırlar nasıl kaldırılır ve yalnızca en yüksek değerlere sahip olanlar korunur?

Aşağıdaki ekran görüntüsünde gösterildiği gibi bir tablonuz olduğunu varsayalım. Bu yöntem, Excel’de belirli bir sütuna göre yinelenen satırları kaldırmak ve başka bir sütunda yalnızca en yüksek değerleri korumak için bir VBA makrosu kullanmanızı sağlar. Lütfen aşağıdaki adımları izleyin:

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

2. Yeni açılan Modül penceresine aşağıdaki kodu yapıştırmak için Ekle > Modül seçeneğine tıklayın.

VBA: Yinelenen satır kaldır ve en yüksek değerleri sakla

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

4. Şimdi bir iletişim kutusu açılacak. Lütfen Yinelenenleri Kaldır seçeneğini işaretleyin, en yüksek değerleri saklamak istediğiniz sütunları seçin ve ardından Tamam düğmesine tıklayın.

Bizim örneğimizde, Meyve sütununa göre yinelenen satırları kaldıracağız ve her meyvenin Miktar sütunundaki en yüksek değerini saklayacağız; bu yüzden yukarıdaki ekran görüntüsünde gösterildiği gibi Meyve ve Miktar sütunlarını seçtim.

Daha sonra, Yinelenen Satır seçeneğiyle Meyve sütununa göre yinelenenlerin kaldırıldığını ve Miktar sütununda her meyvenin en yüksek değerinin korunduğunu göreceksiniz. Ekran görüntüsüne bakın:

Notlar:

(1) Sınırlı aralık, yinelenen satırların kaldırılacağı sütunla başlamalıdır.

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

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

Yukarıdaki VBA kodu bazı kullanıcılar için yeterince kolay olmayabilir ve yalnızca kriter sütununun hemen sağındaki sütunda en yüksek değerleri saklayabilir. Ancak Kutools for Excel’in Gelişmiş Satırları Birleştir yardımcısı bu sorunu kolayca çözecektir.

1. Yinelenen satırları kaldırıp en yüksek değerleri saklamak istediğiniz tabloyu seçin (örneğimizde A1:C24 aralığını seçtik) ve şuraya tıklayın: Kutools > Birleştir ve Ayır > Gelişmiş Satırları Birleştir.

2. Açılan Satırları Birleştir Sütuna Göre iletişim kutusunu lütfen aşağıdaki gibi yapılandırın:

(1) Select Fruit column (which you will Yinelenenleri Kaldır rows by), ardından Birincil Anahtardüğmesine tıklayın;

(2) En yüksek değerleri saklamak istediğiniz Miktar sütununu seçin, ardından Hesapla > Maks seçeneğine tıklayın.

(3) Diğer sütunlar için ihtiyaç duyduğunuz şekilde birleştirme kurallarını tanımlayın.

3. Tamam düğmesine tıklayın. Ardından, Yinelenen tüm satırlar Meyve sütununa göre kaldırılacak ve Miktar sütununda yalnızca ilgili meyvelerin Maksimum Değeri kalacaktır. Ekran görüntüsüne bakın:

Kutools for Excel yazılımının Gelişmiş Satırları Birleştir yardımcısı, tek bir sütuna göre satırları kolayca birleştirmenize ve ardından diğer sütunları bu sütuna göre Toplam, Say, Maks, Min, Çarpım vb. hesaplamalarla işlemenize olanak tanır.60 günlük ücretsiz deneme sürümü için tıklayın, hiçbir sınırlama yok!