Ana içeriğe atla

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 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Ş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 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Ş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 300'den fazla temel araçla güçlendirin. Kredi kartı gerekmeden tam özellikli 30 günlük ÜCRETSİZ deneme sürümünün keyfini çıkarın! Ş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: 300'den fazla kullanışlı araç parmaklarınızın ucunda! Hiçbir özellik sınırlaması olmaksızın 30 günlük ücretsiz deneme sürenizi bugün başlatın. Hemen İndir!

En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

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!
Comments (39)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In given range, if any cell contains defined text the entire row gets deleted.

Pls share code
This comment was minimized by the moderator on the site
Hi Yogesh,
On this webpage, the second method is to delete rows by cell values with VBA code. You can go to there and copy the code directly!
https://www.extendoffice.com/documents/excel/815-excel-remove-rows-based-on-cell-value.html#vba
This comment was minimized by the moderator on the site
There are two issues with the code posted as of this date. 1) the variable xTitleId is not declared, which causes a compilation error if Option Explicit is in use. 2) With Excel 2016, it appears that a range is limited to 129 areas. Each discontiguous matching cell found in the loop creates another area in the DeleteRng variable. Unfortunately, the Union method does not raise an error if that number of areas is exceeded; it just ignores the remaining cells. When the loop is finished, DeleteRng will have no more than 129 areas.
This comment was minimized by the moderator on the site
Hi TomTheToolman,
Thank you so much for your feedback. I've already updated the new code in the article. If you have any other questions, please don't hesitate to let me know.
Amanda
This comment was minimized by the moderator on the site
very well. Thank you!
This comment was minimized by the moderator on the site
Can someone help me...If 3rd column has value 0, then delete all values of corresponding column 1st. In this case answer should be the last line only.... Check MenuName ID 3149 VNLA MILFLLE 2 3149 TURKEY PNN 0 3149 R. BEEF PNN 0 3149 MIX MOCHA 38 3150 M.G.R 1/2 0 3150 THE PEPPE L 0 3150 MIX SLD 0 3150 EGGPLANT 0 3150 STILL WATER 7 3151 MIX MOCHA 38
This comment was minimized by the moderator on the site
Thanks for sharing. I am actually looking for a code that doesn't ask user for range but instead selects a specific column say column "A" and runs till the last row of that column. Can you please help..
This comment was minimized by the moderator on the site
Hi everybody, I am wondering what can we do to delete the following (According to the example shown in this page): Soe appears at several date (sept, October... etc). What I would like is to delete the line where Soe is but to keep the line with last date she appeared. In addition, some lines could be in double but I still want to keep it. So for example, you have the lines: - July 3 /Soe - Sep 4 / Soe - Sep 4 / Soe - Oct 19/ Soe - Nov 13 / Soe - Nov 13 / Soe and what I want to keep is: - Nov 13 / Soe - Nov 13 / Soe My real case is: I have different EAN code and version 1, 2, 3 or 4 and I want to keep the line where the version is the higher. e.g.: I have: - EAN 1 / Version 1 - EAN 1 / Version 1 - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 and I want to keep: - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 I am searching since hours and I am completely blocked on this issue. Many thanks in advance for your brain and help. Best, Marion
This comment was minimized by the moderator on the site
Hi, Thank you this was really helpful. However, there's an error that pops up when I run the codes it says "Object variable or with block variable not set" and it points to " the line DeleteRNG.EntireRow.Delete". Could you please help me with debugging this. Thanks.
This comment was minimized by the moderator on the site
I am trying to use this macro in order to delete unused formulas, because excel views blank formula cells as a zero value and will print extra pages. I was hoping when I deleted the unused formulas, when I printed it would only print the pages that had information. This is not the case and I really need help to find a solution. I have tried using this formula and it is not working and prints three extra pages that I do not need even with the extra formulas being deleted. Sub selectonly() ' ' selectonly Macro ' Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End Sub
This comment was minimized by the moderator on the site
thank you so much. That save me a lot of time
This comment was minimized by the moderator on the site
Trying to find a delete Function that will delete entire designated rows automatically, based on certain values or certain text contained in other cell(s), using only automated formulas.
This comment was minimized by the moderator on the site
How can i delete selected cell that i want based on value that i entered for example : A1 B1 C1 D1 A2 B2 C2 D2 A3 B3 C3 D3 A4 B4 C4 D4 When i entered in some cell for example "2" then 2 row will be deleted from A3:D4. If i entered "1" then 1 row will be deleted from A4:D4. if i entered "3" then 3 row will be deleted from A2:D4
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations