Başka bir sayfadaki kriterlere uymayan satırlar nasıl silinir?

Aynı sayfada kriterlere uymayan satırları silmek sizin için zor olmayabilir, ancak aşağıdaki gibi başka bir sayfadaki kriterlere uymayan satırları silmenin bir yolunu biliyor musunuz? Şimdi bunu hızlıca çözmenize yardımcı olacak iki yönteminiz var.

Başka bir sayfadaki kriterlere uymayan Satırları silme VBA ile

Başka bir sayfadaki kriterlere uymayan Satırları silme Kutools for Excel ile

Kriterler (Sayfa 2'de)	Önce (Sayfa 1)		Sonra (Sayfa1)

---

Başka bir sayfadaki kriterlere uymayan Satırları silme VBA ile

Başka bir sayfadaki kriterlere uymayan satırları silmeye yardımcı olabilecek bir VBA kodu vardır.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini görüntüleyin.

2. Yeni bir modül penceresi açmak için pencerede Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu bu modül penceresine kopyalayın.

VBA: Excel'de başka bir sayfadaki kriterlere uymayan 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 KutoolsforExcelKriterlere uymayan satırları silmek istediğiniz aralığı seçmeniz için bir iletişim kutusu açılır. Ekran görüntüsüne göz atın:

4. Tamam düğmesine tıklayın; ardından başka bir sayfadaki kriterleri seçmeniz için yeni bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

5. Artık başka bir sayfadaki kriterlere uymayan tüm satırlar kaldırıldı.

---

Başka bir sayfadaki kriterlere uymayan Satırları silme Kutools for Excel ile

VBA kodu biraz zor geliyorsa, Kutools for Excel’in Aralık Karşılaştırması özelliğini deneyebilirsiniz.

Kutools for Excel, 30 gün boyunca sınırsız olarak ücretsiz deneyebileceğiniz 300'den fazla kullanışlı Excel aracını içerir.Şimdi Edinin

1. Kriterlere uymayan satırları silmek için, istediğiniz sayfayı seçin ve Kutools > Aralık > Hücreleri Karşılaştır seçeneğine tıklayın. Ekran görüntüsüne bakın:

2. Hücreleri Karşılaştır iletişim kutusunda, Aralık B alanındaki düğmeye tıklayarak ihtiyacınız olan kriter aralığını seçebilirsiniz. Ekran görüntüsüne bakın:

 

3. Ardından Tamam düğmesine tıklayın, Aralık Karşılaştırması iletişim kutusuna geri dönün ve Farklı Değer ile Tüm Satırı Seç seçeneklerini işaretleyin. Ekran görüntüsüne bakın:

4. Tamam düğmesine tıklayarak Aralık Karşılaştırması iletişim kutusundan çıkın. Ardından, kriterlerden farklı olan değer satırlarının seçildiğini göreceksiniz.

5. Başka bir sayfadaki kriterlere uymayan satırları silmek için, sağ tıklayıp bağlam menüsünden Sil seçeneğine tıklayın.

Kutools for Excel’in Aralık Karşılaştırması özelliğini daha yakından tanımak için buraya tıklayın.

---

İlgili Makaleler:

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

---