Başka bir sayfadaki ölçütlerle eşleşmeyen satırlar nasıl silinir?

Aynı sayfadaki kriterlere uymayan satırları silmek sizin için zor olmayabilir, ancak aşağıda gösterildiği gibi başka bir sayfadaki kriterlere uymayan satırları silmenin herhangi bir yolunu biliyor musunuz? Şimdi, hızlıca çözmenize yardımcı olabilecek iki numaram var.

VBA ile başka bir sayfadaki kriterlerle eşleşmeyen satırları silin

Kutools for Excel ile başka bir sayfadaki ölçütlerle eşleşmeyen satırları silin

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

---

VBA ile başka bir sayfadaki kriterlerle eşleşmeyen satırları silin

Bir VBA kodu var, başka bir sayfadaki ölçütlerle eşleşmeyen satırları silmenize yardımcı olabilir.

1. Basın Alt + F11 görüntülemek için Uygulamalar için Microsoft Visual Basic pencere.

2. Pencerede tıklayın Ekle > modül yeni bir modül penceresi göstermek için, ardından aşağıdaki VBA kodunu modül penceresine kopyalayın.

VBA: Excel'deki başka bir sayfadaki ölçütlerle eşleşmeyen satırları silin.

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ık koşmak, KutoolsforExcel ölçütlerle eşleşmeyen satırları silmek istediğiniz bir aralığı seçmeniz için iletişim kutusu açılır. Ekran görüntüsüne bakın:

4. tık OKve başka bir sayfadaki kriterleri seçmek için başka bir iletişim kutusu açılır, ekran görüntüsüne bakın:

5. Şimdi başka bir sayfadaki kriterlere uymayan tüm satırlar kaldırılır.

---

Kutools for Excel ile başka bir sayfadaki ölçütlerle eşleşmeyen satırları silin

VBA kodu sizin için biraz zorsa, Kutools for Excel'in Aralıkları Karşılaştır özelliğini deneyebilirsiniz.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

1. Ölçütlerle eşleşmeyen satırları silmek istediğiniz sayfayı seçin. Ve tıklayın Kutools > Aralıkları Karşılaştır. Ekran görüntüsüne bakın:

2. içinde Aralıkları Karşılaştır iletişim kutusunda düğmesine tıklayın B Aralığıve ardından ihtiyacınız olan kriter aralığını seçebilirsiniz. Ekran görüntüsüne bakın:

 

3. Sonra tıklayın OK, sonra geri dön Aralıkları Karşılaştır iletişim, kontrol et Farklı Değer ve Tüm satırları seç. Ekran görüntüsüne bakın:

4. tık Okve çık Aralıkları Karşılaştır iletişim. Ardından kriterlerden farklı olan değer satırlarının seçildiğini görüyorsunuz.

5. Tıklamak için sağ tıklayın Sil bağlam menüsünden başka bir sayfadaki ölçütlerle eşleşmeyen satırları silin.

Kutools for Excel'in Aralıkları Karşılaştırma hakkında daha fazla bilgi için burayı tıklayın.

---

İlgili Makaleler:

• Excel'de belirli metin içermeyen satırları sil