Başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları nasıl silerim?

Aynı çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silmek sizin için zor olmayabilir, ancak başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silmenin herhangi bir yolunu biliyor musunuz? Aşağıda gösterildiği gibi. Şimdi size bunu hızlıca çözmeye yardımcı olabilecek iki yöntemim var.

VBA ile başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silme

Kutools for Excel ile başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silme

Ölçütler (Çalışma Sayfası 2)	Önceki (Çalışma Sayfası 1)		Sonra (Çalışma Sayfası 1)

---

VBA ile başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silme

Size başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silmenize yardımcı olabilecek bir VBA kodu bulunmaktadır.

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

2. Pencerede, yeni bir modül penceresini açmak için Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu modül penceresine kopyalayın.

VBA: Excel'de başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silme.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Tıklayın Çalıştır, bir KutoolsforExcel diyalog kutusu açılır ve ölçütlerle eşleşmeyen satırları silmek istediğiniz alanı seçmenizi sağlar. Ekran görüntüsüne bakınız:

4. Tamam'a tıklayın ve başka bir diyalog kutusu açılır, diğer çalışma sayfasındaki ölçütleri seçmenizi sağlar, ekran görüntüsüne bakınız:

5. Şimdi, başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen tüm satırlar kaldırıldı.

---

Kutools for Excel ile başka bir çalışma sayfasındaki ölçütlerle eşleşmeyen satırları silme

Eğer VBA kodu biraz zor geliyorsa, Kutools for Excel'in Hücreleri Karşılaştır özelliğiyle deneyebilirsiniz.

Kutools for Excel, 300'den fazla kullanışlı Excel aracı içerir. 30 gün boyunca sınırlama olmadan ücretsiz deneyin. Şimdi Edinin

1. Ölçütlerle eşleşmeyen satırları silmek istediğiniz çalışma sayfasını seçin. Ve Kutools > Aralık > Hücreleri Karşılaştır'a tıklayın. Ekran görüntüsüne bakınız:

2. Hücreleri Karşılaştır iletişim kutusunda, Aralık B'deki butona tıklayın ve ardından ihtiyacınız olan ölçüt aralığını seçebilirsiniz. Ekran görüntüsüne bakınız:

 

3. Ardından Tamam'a tıklayın, sonra Hücreleri Karşılaştırma iletişim kutusuna geri dönün, Farklı Değer'i işaretleyin ve Tüm Satırı Seç'i seçin. Ekran görüntüsüne bakınız:

4. Tamam'a tıklayın ve Hücreleri Karşılaştırma iletişim kutusundan çıkın. Daha sonra ölçütlerden farklı olan değer satırlarının seçildiğini görürsünüz.

5. Ölçütlerle eşleşmeyen satırları silmek için bağlam menüsünden Sil'e sağ tıklayın.

Kutools for Excel'in Hücreleri Karşılaştır özelliği hakkında daha fazla bilgi için buraya tıklayın.

---

İlgili Makaleler:

• Excel'de belirli metni içermeyen satırları silme

---