Excel'de aynı anda birden çok eşleşme nasıl bulunur ve silinir?
Excel'de büyük verilerle çalışırken, ihtiyacınız olan bilgiyi herhangi bir anda hızlı bir şekilde bulabilmek çok önemlidir. İşte o zaman, etkin sayfada veya tüm çalışma kitabında belirli değerleri veya biçimleri bulup vurgulamanıza ve ardından sonuçlarla istediğinizi yapmanıza, örneğin bunları silmenize veya değiştirmenize yardımcı olan Bul ve Değiştir özelliğine ihtiyaç duyarsınız. Ancak, Excel'in Bul ve Değiştir özelliği ile bir seferde yalnızca bir değer bulabilirsiniz. Bu eğitimde, birden çok farklı değeri bulmanın ve bunları bir kerede Excel'de silmenin hızlı bir yolunu tanıtacağım.
VBA ile aynı anda birden fazla eşleşme bulun ve silin
Seçili aralıkta veya birden çok çalışma sayfasında birden çok farklı değer bulmanıza ve bunları hemen silmenize yardımcı olmak için iki VBA kodu oluşturduk. Lütfen aşağıdaki adımları takip edin ve kodu ihtiyaçlarınıza göre çalıştırın.
1. Excel'inizde, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül. Ardından, aşağıdaki VBA kodlarından birini kopyalayın. modül pencere.
VBA kodu 1: Seçili aralıktaki birden çok eşleşmeyi aynı anda bulun ve silin
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 Sub
Not: snippet'te xArrFinStr = Array("satış", "9", "@") 13. satırda, değiştirmelisiniz "satış", "9", "@" Bulmak ve silmek istediğiniz gerçek değerlerle, her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
VBA kodu 2: Aynı anda birden çok sayfada birden çok eşleşme bulun ve silin
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
- snippet'te xArr = Array("Sayfa1", "Sayfa2") 15. satırda, değiştirmelisiniz "Sayfa1", "Sayfa2" değerleri bulmak ve silmek istediğiniz sayfaların gerçek adlarıyla. Her sayfa adını çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
- snippet'te xArrFinStr = Array("satış", "9", "@") 16. satırda, değiştirmelisiniz "satış", "9", "@" Bulmak ve silmek istediğiniz gerçek değerlerle, her değeri çift tırnak içine almayı ve virgülle ayırmayı unutmayın.
3. Basın F5 VBA kodunu çalıştırmak için. Not: Eğer kullanıyorsanız VBA kodu 1, değerlerin bulunacağı ve silineceği aralığı seçmenizi isteyen bir iletişim kutusu açılır. Tüm sayfayı seçmek için bir sayfa sekmesine de tıklayabilirsiniz.
4. Aşağıda gösterilen iletişim kutusu açılır ve size kodun belirtilen eşleşmeleri sildiğini bildirir. Tıklamak OK diyaloğu kapatmak için.
5. Belirtilen değerler bir kerede silinmiştir.
Belirli Hücreleri Seç özelliği ile aynı anda birden fazla eşleşme bulun ve silin
Kutools for Excel şunları sunar: Belirli Hücreleri Seçin Aynı anda belirlediğiniz bir veya iki koşulu karşılayan değerleri bulma özelliği varsa, birden çok değeri bir kerede nasıl hızlı bir şekilde bulup sileceğinizi öğrenmek için lütfen okumaya devam edin.
1. Üzerinde Kutools sekmesinde, Kurgu gruplandır, tıklayın seç > Belirli Hücreleri Seçin.
- içinde Bu aralıktaki hücreleri seçin kutusunda, aralık seçme düğmesini tıklayın aralığı belirtmek için sağda değerlerin nerede bulunacağı ve silineceği. Not: Tüm sayfada arama yapmak için sayfa sekmesine tıklayın.
- içinde Seçim türü seçeneğini belirleyin. Hücre seçeneği.
- içinde Belirli tür bölüm, en fazla iki koşul ayarlayın:
- Aşağıdaki gibi ihtiyacınız olan bir ilişkiyi seçmek için sol taraftaki açılır oka tıklayın. İçeren, eşittir, Küçüktür, Ile başlar, vb.
- Değeri ihtiyaçlarınıza göre ilgili kutuya yazın.
- İki koşul arasındaki ilişkiyi belirtin (varsa): Ve or Or.
3. tık Ok Ayarladığınız koşul(lar)ı karşılayan hücreleri seçmek için Kaç hücrenin bulunduğunu ve seçildiğini söyleyen bir iletişim kutusu açılır.
4. tık OK. Şimdi, basın SİL Seçilen değerleri bir kerede silmek için tuşuna basın.
Not: Kullanmak için Belirli Hücreleri Seçin özelliği, bilgisayarınızda Kutools for Excel yüklü olmalıdır. Kutools kurulu değilse, indirmek ve yüklemek için buraya tıklayın. Profesyonel Excel eklentisi, herhangi bir sınırlama olmaksızın 30 günlük ücretsiz deneme sunar.
Excel'de aynı anda birden çok eşleşme bulun ve silin
İlgili Makaleler
Excel'de Yinelenenleri Bulun, Vurgulayın, Filtreleyin, Sayın, Silin
Excel'de, verileri manuel olarak kaydettiğimizde, başka kaynaklardan veri kopyaladığımızda veya başka nedenlerle yinelenen veriler her seferinde ortaya çıkar. Bazen kopyalar gerekli ve kullanışlıdır. Ancak bazen yinelenen değerler, hatalara veya yanlış anlamalara yol açar. Burada, bu makale Excel'de formüllere, koşullu biçimlendirme kurallarına, üçüncü taraf eklentilere vb. Göre kopyaları hızla tanımlama, vurgulama, filtreleme, sayma, silme yöntemlerini tanıtacaktır.
Excel'de İki Sütun Nasıl Karşılaştırılır ve Eşleşmeler Nasıl Silinir?
Bazı kopyaları içeren iki sütununuz / listeniz varsa, şimdi onları karşılaştırmak ve eşleşmeleri bulmak, onları silmek istersiniz, hızlı bir şekilde nasıl çözebilirsiniz? Bu makalede, bunu Excel'de halletmenize yardımcı olacak farklı yollar sunacağım.
Excel'de Seçilen Aralıklar Dışında Tümünü Nasıl Silebilirim?
Excel'de, seçilen aralıkları hızlı ve doğrudan silebiliriz, ancak seçilen aralıklar dışındaki diğer hücre içeriklerini silmeyi hiç denediniz mi? Bu makalede, bu görevi Excel'de hızlı ve kolay bir şekilde çözmeniz için bazı püf noktaları tanıtacağım.
Çeşitli Hücrelerdeki Tüm Resimler Nasıl Silinir?
Çalışma sayfanıza doldurulmuş birden fazla resim varsa, şimdi, bazılarını belirli bir aralıkta silmek istiyorsunuz, bununla nasıl hızlı bir şekilde başa çıkıyorsunuz?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!