Note: The other languages of the website are Google-translated. Back to English

Excel'deki hücre değerine dayalı satırlar nasıl kaldırılır?

Excel'deki hücre değerine bağlı olarak birden çok satırı hızlı bir şekilde silmek veya kaldırmak için, önce belirli hücre değerini içeren bu satırların tamamını seçmeniz ve ardından bunları kaldırmanız gerekebilir. Hücre değerine göre satırları silmenin ancak VBA kodunu kullanmanın hızlı bir yolu yok gibi görünüyor. İşte size yardımcı olacak bazı hızlı püf noktaları.


Bul ve Değiştir özelliği ile hücre değerine dayalı satırları kaldırın

Excel'de, belirli bir hücre değerine dayalı satırları kolayca kaldırmak için güçlü Bul ve Değiştir özelliğini uygulayabilirsiniz. Lütfen aşağıdaki işlemleri yapın:

1. Satırları belirli hücre değerine göre kaldıracağınız aralığı seçin ve düğmesine basarak Bul ve Değiştir iletişim kutusunu açın. Ctrl + F tuşlarını aynı anda

2. Bul ve Değiştir iletişim kutusunda, lütfen belirli hücre değerini yazın (bizim durumumuzda, sıcak) içine Find what kutusunu tıklayın ve Find All buton. Aşağıdaki ilk ekran görüntüsüne bakın:

3. Bul ve Değiştir iletişim kutusunun altındaki tüm arama sonuçlarını seçin ve bu iletişim kutusunu kapatın. (not: Arama sonuçlarından birini seçebilir ve ardından Ctrl + A bulunan tüm sonuçları seçmek için tuşlar. Yukarıdaki ikinci ekran görüntüsüne bakın.)
Ve sonra belirli bir değeri içeren tüm hücrelerin seçildiğini görebilirsiniz.

4. Seçili hücrelere sağ tıklayın ve Delete sağ tıklama menüsünden. Ve sonra kontrol edin Entire row Açılan Sil iletişim kutusundaki seçeneği ve OK buton. Şimdi belirli bir değeri içeren tüm hücrelerin kaldırıldığını göreceksiniz. Aşağıdaki ekran görüntülerine bakın:

Ve sonra tüm satırlar zaten belirli bir değere göre silindi.


VBA kodu ile hücre değerine dayalı satırları kaldırın

Aşağıdaki VBA kodu ile belirli hücre değerine sahip satırları hızlı bir şekilde silebilirsiniz, lütfen aşağıdaki adımları uygulayın:

1. basın Alt + F11 anahtarları aynı anda açmak için Microsoft Visual Basic for applications pencere,

2. tıklayın Insert > Moduleve aşağıdaki kodu Modüle girin:

VBA: Hücre değerine göre tüm satırları kaldırın

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Ardından, Run kodu çalıştırmak için düğmeye basın.

4. Açılan iletişim kutusunda, lütfen belirli bir değere göre satırları kaldıracağınız aralığı seçin ve OK düğmesine basın.

5. Başka bir iletişim kutusunda, lütfen satırları temel alarak kaldıracağınız belirli değeri yazın ve OK buton. Ekran görüntüsüne bakın:

Ve sonra, zaten belirtilen değere göre tüm satırların silindiğini göreceksiniz.


Kutools for Excel ile bir veya iki hücre değerine dayalı satırları kaldırın

Yüklediyseniz Kutools for Excelonun Select Specific Cells özelliği, belirli bir değere sahip satırları hızlı bir şekilde silmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın:

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

1. Belirli bir değere göre satırları kaldıracağınız aralığı seçin ve tıklayın Kutools > Select > Select Specific Cells. Ekran görüntüsüne bakın:

2. Belirtilen Hücreleri Seç iletişim kutusunun açılışında lütfen kontrol edin Entire row seçeneğini seçin, Contains itibaren Specific type açılır listeyi seçin, belirtilen değeri sağdaki kutuya girin ve Ok düğmesi (Yukarıdaki ekran görüntüsüne bakın).
Bu özelliği uyguladıktan sonra, bir iletişim kutusu açılır ve belirtilen kriterlere göre kaç hücre bulunduğunu size gösterir. Lütfen tıklayın OK düğmesine basarak kapatın.

3. Şimdi belirli bir değere sahip tüm satırlar seçilir. Lütfen seçilen satırlara sağ tıklayın ve Delete sağ tıklama menüsünden. Aşağıdaki ekran görüntüsüne bakın:

not: Bu Select Specific Cells özelliği, satırları bir veya iki belirli değere göre silmeyi destekler. Belirtilen iki değere dayalı satırları silmek için lütfen başka bir değer belirtin. Specific type Aşağıdaki ekran görüntüsü gibi Belirli Hücreleri Seç iletişim kutusunun bölümü:

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın


Kutools for Excel ile birden çok hücre değerine dayalı satırları kaldırın

Bazı durumlarda, Excel'deki başka bir sütun / listeden birden çok hücre değerine dayalı satırları kaldırmanız gerekebilir. Burada tanıtacağım Kutools for Excel's Select Same & Different Cells hızlı bir şekilde kolaylıkla çözme özelliği.

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

1. tıklayın Kutools > Select > Select Same & Different Cells Aynı ve Farklı Hücreleri Seç iletişim kutusunu açmak için.

2. Açılışta Select Same & Different Cells iletişim kutusu, lütfen aşağıdaki işlemleri yapın (ekran görüntüsüne bakın):

(1) Find values in kutusunda, lütfen belirli değerleri bulacağınız sütunu seçin;
(2) According to kutusu, lütfen satırları temel alarak sileceğiniz birden çok değer içeren sütunu / listeyi seçin;
(3) Based on bölümü, lütfen kontrol edin Each row seçenek;
(4) Find bölümü, lütfen kontrol edin Same Values seçenek;
(5) Kontrol edin Select entire rows iletişim kutusunun altındaki seçenek.
not: Belirtilen iki sütun aynı başlığı içeriyorsa, lütfen My data has headers seçeneği.

3. Tıkla Ok Bu yardımcı programı uygulamak için düğmesine basın. Ve sonra bir iletişim kutusu çıkar ve kaç satırın seçildiğini gösterir. Sadece tıklayın OK düğmesine basarak kapatın.

Ve sonra belirtilen listedeki değerleri içeren tüm satırlar seçildi.

4. tıklayın Home > Delete > Delete Sheet Rows tüm seçili satırları silmek için.


Demo: Excel'deki bir veya birden çok hücre değerine dayalı satırları kaldırın


Kutools for Excel Excel için 300'den fazla kullanışlı araç içerir ve sınırlama olmaksızın 30 gün içinde ücretsiz olarak deneyebilirsiniz. Hemen İndirin ve Ücretsiz Deneyin!

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (39)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Fantastik! Bu bir tedavi işe yaradı, ihtiyacım olan şeye uyacak şekilde biraz değiştirdim ama saf dahi. Ah VBA Sürümü.
Bu yorum sitedeki moderatör tarafından en aza indirildi
If (cell.Value) = "Apple" öğesini birden çok değer içerecek şekilde değiştirmenin herhangi bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bobby, şunu dene, istediğini almalı: If (cell.Value) = "Elma" VEYA (cell.Value) = "Pazartesi"
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değerin belirli bir değere > veya = olup olmadığını bir değeri tanıması için yine de var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey - senaryo için çok teşekkürler. Bir hücre içinde belirli bir öğe yerine eşleşen herhangi bir şeyi seçebilmek için joker karakterler kullanıp kullanamayacağınızı merak ediyordum. ** joker karakterler kullanmayı denedim ama hiçbir şey yapmıyor gibi görünüyor. İşte sahip olduğum şey: Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) Her hücre için rng If cell.Value Like "*WORDTODELETE*" _ Sonra del Hiçbir Şey Değilse Set del = hücre Else: Set del = Union(del, hücre) Sonsa Sonsa Sonraki hücre Açık Hata Devam Et Sonraki del.EntireRow.Delete End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
İçten teşekkürler - Pazarlama görevlisinin kod yazmaya çalışması her zaman eğlencelidir ve bu bilgi çok yardımcı oldu. Kodun birden çok sütuna yayılmasını sağlayamadım ("AA2:AA3000" çalışıyor, "AB2:AB3000" çalışıyor, ancak "AA2:AB3000" çalışmıyor. Dünyayı sarsan Kaboom yok - hiçbir şey yapmıyor. Birkaç makroyu sırayla çalıştırarak çözdüm (ama amatörce, sanırım) ama muhtemelen daha zarif bir yol var. Yardımın için tekrar teşekkürler Jim (Melville, NY)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aldığım: çalışma zamanı hatası '13': Tür uyuşmazlığı Hata Ayıklama, If (cell.Value) = "FALSE" _ Sonra bölümünü vurgular. MVB'de tamamen kayboldum, herhangi bir yardım takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Diyelim ki elma içeren tüm satırlarımı silmek için aşağıdaki kodu koydum ama sonra devam etmesini ve muz içeren tüm satırları silmesini istiyorum? Kodu kopyalamaya çalıştım ama elmadan sonra duruyor gibi görünüyor. Teşekkürler. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) Her hücre için rng'de If (cell.Value) = "Apple" _ O zaman del Is Nothing O zaman Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sadece sana teşekkür etmek istedim. Bu bir cazibe gibi çalıştı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kesinlikle harika! Paylaşım için teşekkürler!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler, bu harika! Hızlı yorum, excel 2010'da bul ve değiştir işlevini denedim. Bulunan tüm sonuçları seçmek için Alt + A yerine Ctrl + A kullanmak zorunda kaldım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, "Apple" İÇERMEYEN satırları silmenin en kolay yolu nedir lütfen? teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, VEYA istisnası dışında bir satırı silmek için yazmanın herhangi bir yolu var mı? Yani yinelenen satırları silin, ancak belirli bir değeri yok sayın. Söz konusu sütunun henüz geçerli verilere sahip olmayan boş bir b/c içermesi dışında, kopyaları silmek istiyorum. Ben de senin gibi koştum ama söz konusu sütundaki satırları bir boşlukla silmeyi bitirdim, bu yüzden onu olduğu gibi kullanamıyorum. teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
VB Komut Dosyası için teşekkür ederiz. Bunu denemek için sabırsızlanıyorum. Soru: Sütunları silmeden ve/veya çalışma kitabında ayrı bir sekmeye kopyalamadan önce silinmek üzere işaretlemek için yine de var mı? Ayrıca, bu betiği aynı anda birden çok çalışma kitabında/dosyada çalıştırmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkür ederim.. bana çok yardımcı oldu...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sütun1 = "Elma" VE sütun3 = "yeşil" olan tüm satırları silmek istiyorum. lütfen?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu makro kullanarak nasıl yapacağımdan emin değilim, ancak işini iyi yapacak bir seçenek, bir sütunun "elma" ve diğerinin "yeşil" olmasını test eden fazladan bir sütun eklemek ve sonra izin vermektir. basit bir "evet" veya "hayır" değeri verir. "evet" değerini aramak için yukarıdaki seçeneklerden birini kullanın ve 2 ayrı değer yerine buna dayalı satırları kaldırın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
tek bir belgede mağazaların bir listesi var. Binlerce satır döndüren bir raporum var. mağaza numarası her zaman A Sütunundadır. Raporda arama yapacak ve mağaza listesinden mağaza numaralarına sahip tüm sütunları silecek bir kod/makro var mı? bir vlookup düşünmek ve "Do While" gereklidir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba ve VBA kodu için çok teşekkür ederim. Bir sorum var. Kodu, aynı anda silinecek birkaç hücre değeri seçilebilecek şekilde yapmak mümkün müdür? Örneğin Apple ve Emily'yi aynı anda seçip silinsin mi? Çalışmanızı takdir ediyorum ve yanıtınızı bekliyorum. Joan K
Bu yorum sitedeki moderatör tarafından en aza indirildi
A3:D3000 aralığını nasıl belirleyebilirim (yani, aralığın kullanıcının seçmesini istemiyorum)? Silme Dizesini nasıl bir hücre başvurusu yapabilirim, ör. G1?
Bu yorum sitedeki moderatör tarafından en aza indirildi
iki sütunu karşılaştırmak ve sonra silmek mümkün mü? A3:D3000 aralığındadır, eğer A hücresi=x ve B hücresi=y ise satır silinsin mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ne harika. hepsine çok teşekkür ederim. :)
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır