Excel'de Birden Çok Eşleşmeyi Aynı Anda Bulup Silmenin Yolları
Excel'de büyük veri setleriyle çalışırken, ihtiyacınız olan bilgileri anında bulabilme yeteneği kritik öneme sahiptir. İşte tam da bu noktada devreye **Bul ve Değiştir** özelliği girer: Geçerli çalışma sayfasında veya tüm çalışma kitabında belirli değerleri ya da biçimleri kolayca bulun, vurgulayın ve ardından sonuçlar üzerinde istediğiniz işlemi (örneğin silme veya değiştirme) gerçekleştirin. Ancak unutmayın: Excel’in Bul ve Değiştir özelliği aynı anda yalnızca tek bir değeri işleyebilir. Bu eğitimde, Excel’de birden fazla **farklı değeri** aynı anda bulup silmenin hızlı ve pratik bir yolunu öğreneceksiniz.
Birden Çok Eşleşmeyi Aynı Anda VBA ile Bulma ve Silme
Birden çok çalışma sayfasında veya belirli bir aralıkta birden fazla "Farklı değer"i hızlıca bulmanıza ve silmenize yardımcı olmak için iki VBA kodu hazırladık. Aşağıdaki adımları izleyin ve ihtiyaçlarınıza uygun olan kodu çalıştırın.
1. Excel'de Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül öğesine tıklayın. Ardından aşağıdaki VBA kodlarından birini Modül penceresine kopyalayın.
VBA kodu 1: Aralık seç içindeki birden çok eşleşmeyi aynı anda bulma ve silme
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End SubNot: 13. satırdaki xArrFinStr = Array("sales", "9", "@") kod parçasında, bulup silmek istediğiniz Gerçek Değer ile "sales", "9", "@" kısmını değiştirin; her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
VBA kodu 2: Birden çok sayfa arasında birden çok eşleşmeyi aynı anda bulma ve silme
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub- 15. satırdaki xArr = Array("Sheet1", "Sheet2") kod parçasında, değerleri bulup silmek istediğiniz sayfaların gerçek adlarıyla "Sheet1", "Sheet2" kısmını değiştirmelisiniz. Her sayfa adını çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
- 16. satırdaki xArrFinStr = Array("sales", "9", "@") kod parçasında, bulup silmek istediğiniz Gerçek Değer ile "sales", "9", "@" kısmını değiştirin; her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
3. VBA kodunu çalıştırmak için F5 tuşuna basın.Not: VBA kodu 1 kullanıyorsanız, değerlerin bulunup silineceği aralığı seçmenizi isteyen bir iletişim kutusu açılacaktır. Tüm sayfayı seçmek için bir sayfa sekmesine tıklayabilirsiniz.
4. Belirtilen eşleşmelerin silindiğini bildiren aşağıdaki iletişim kutusu açılır. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın.
5. Belirtilen değerler aynı anda silindi.
Birden Çok Eşleşmeyi Aynı Anda Belirli hücreleri seçin Özelliğiyle Bulma ve Silme
Kutools for Excel ürünü, aynı anda bir veya iki koşulu sağlayan değerleri bulmanızı sağlayan Belirli hücreleri seçin özelliğini sunar. Birden çok değeri aynı anda nasıl hızlıca bulup silebileceğinizi öğrenmek için lütfen "Lütfen okuyun" bölümüne göz atın.
1. Kutools sekmesinde, Düzenleme grubunda, Seç > Belirli hücreleri seçin öğesine tıklayın.
- Aralık içinde hücreleri seçinkutusunda, değerlerin bulunup silineceği aralığı belirtmek için sağdaki
aralık seçme düğmesine tıklayın ().Not:Tüm sayfada arama yapmak için sayfa sekmesine tıklayın. - Seçim türünü belirtin bölümünde, Hücre seçeneğini işaretleyin.
- Türü belirtinbölümünde, en fazla iki koşul belirleyin:
- İhtiyacınız olan ilişkiyi seçmek için sol taraftaki açılır oka tıklayın; örneğin İçerir, Eşittir, Küçüktür, İle başlar vb.
- İhtiyacınıza göre ilgili kutuya değerinizi girin.
- İki koşul arasında ilişkiyi belirtin (varsa): Ve veya Veya.
aralık seçme düğmesine tıklayın 
3. Belirlediğiniz koşulları sağlayan hücreleri seçmek için Tamam düğmesine tıklayın. Kaç hücrenin bulunduğunu ve seçildiğini bildiren bir iletişim kutusu açılır.
4. Tamam düğmesine tıklayın. Artık seçili değerleri aynı anda silmek için DELETE tuşuna basın.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Şimdi Edinin
Demo: Excel'de Birden Çok Eşleşmeyi Aynı Anda Bulma ve Silme
İlgili Makaleler
Excel'de Yinelemeleri Bulma, Vurgulama, Filtreleme, Sayma ve Silme
Excel'de verileri manuel olarak girerken, başka kaynaklardan kopyalarken veya çeşitli nedenlerle zaman zaman yinelenen veriler oluşabilir. Bu yinelemeler bazen gerekli ve faydalı olsa da, bazen de hatalara veya yanlışlıklara yol açabilir. Bu makalede, Excel'de yinelemeleri formüller, Koşullu Biçimlendirme kuralları, üçüncü parti eklentiler ve benzeri yöntemlerle nasıl hızlıca tespit edebileceğinizi, vurgulayabileceğinizi, filtreleyebileceğinizi, sayabileceğinizi ve silebileceğinizi öğreneceksiniz.
Excel'de iki sütunu karşılaştırıp eşleşen değerleri nasıl silersiniz?
İki sütununuz ya da listeniz varsa ve bunlar yinelenen öğeler içeriyorsa, eşleşenleri nasıl hızlıca karşılaştırıp silebilirsiniz? Bu makalede, Excel’de bu işlemi kolayca gerçekleştirmenizi sağlayacak çeşitli yöntemleri sizinle paylaşacağım.
Excel'de Aralık seçimi dışındaki her şeyi nasıl silersiniz?
Excel'de "Aralık Seç" özelliğini doğrudan ve hızlı bir şekilde silebilirsiniz; peki ya "Aralık Seç" dışındaki diğer hücre içeriklerini silmeyi denediniz mi? Bu makalede, Excel'de bu işlemi hızlı ve kolayca gerçekleştirmeniz için bazı pratik ipuçlarını paylaşıyoruz.
Bir hücre aralığındaki tüm resimleri nasıl silersiniz?
Çalışma sayfanıza birden fazla resim eklenmişse ve bunlardan bazılarını belirli bir aralıkta hızlıca silmek istiyorsanız, bunu nasıl yaparsınız?
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen alınmak için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin