Ana içeriğe atla

Excel'de hücre sıfır içeriyorsa tüm satır nasıl silinir?

Bazen, hücre Excel'de sıfır içeriyorsa tüm satırı silmek istersiniz ve bunlardan birkaçı varsa bunları tek tek silebilirsiniz. Peki, sıfır içeren yüzlerce satırın kaldırılmasına ne dersiniz? Çözmek için aşağıdaki zorlu yollardan birini seçebilirsiniz.

Excel'de Filtre işlevi ile hücre sıfır içeriyorsa satırı sil
Hücre Excel'de VBA ile sıfır içeriyorsa satırı sil
Kutools for Excel ile hücre sıfır içeriyorsa satırı sil

Excel'de Filtre işlevi ile hücre sıfır içeriyorsa satırı sil

Belirli bir sütundaki sıfır değerlerine dayalı olarak tüm satırları filtrelemek için Filtre işlevini kullanabilir ve ardından tüm görünür satırları daha sonra silebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Tüm satırları temel alarak silmek istediğiniz sıfır değerlerini içeren sütun hücrelerini seçin ve ardından Veri > filtre. Ekran görüntüsüne bakın:

2. Ardından, seçilen sütunun ilk hücresinde bir aşağı açılır ok görüntülenir, oka tıklayın ve ardından Sayı Filtreleri > eşittir açılır listeden seçin.

sıfır ise doc sil 1

3. içinde Özel Otomatik Filtre iletişim kutusu, numara girin 0 aşağıda gösterilen ekran görüntüsü gibi metin kutusuna girin ve ardından OK düğmesine basın.

sıfır ise doc sil 1

4. Daha sonra bu belirli sütundaki tüm sıfır değeri hücreleri filtrelenir. Lütfen filtre aralığındaki tüm görünür hücreleri seçin ve üzerlerine sağ tıklayın, seçin Satırları Sil sağ tıklama menüsünden. Açılan komut istemi kutusunda, OK buton. Ekran görüntüsüne bakın:

sıfır ise doc sil 1

5. Şimdi tüm görünür satırlar silinir. Tıklayabilirsiniz Veri > filtre sıfır değer hücreleri olmadan tüm verileri göstermek için tekrar. Ekran görüntüsüne bakın:

sıfır ise doc sil 1

Excel'de belirli bir aralıkta sıfır değerleri varsa tüm satırları kolayca silin:

Kutools for Excel's Belirli Hücreleri Seçin yardımcı program, belirli bir aralıkta sıfır değerleri varsa tüm satırları kolayca seçmenize yardımcı olur ve ardından seçilen tüm satırları herhangi bir hata yapmadan manuel olarak hızlı bir şekilde silebilirsiniz.
Şimdi indirin ve deneyin! (30 günlük ücretsiz parkur)

Hücre Excel'de VBA ile sıfır içeriyorsa satırı sil

Bu bölüm, Excel'de belirli bir sütunda sıfır değer varsa, tüm satırları silmek için VBA yöntemini gösterecektir.

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

2. Uygulamalar için Microsoft Visual Basic penceresinde, Ekle > modül, ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.

VBA: Bir çalışma sayfasındaki belirli sütun aralığında sıfır değer varsa tüm satırları silin

Alt DeleteZeroRow () 'Updateby20140616 Aralık Olarak Kısma Aralığı Sıradaki Hata Devam Ettirildiğinde Aralık Olarak İş Aralığını Kıs xTitleId = "KutoolsforExcel" Ayarla WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) Rng Değilse Rng.EntireRow.Delete End Eger Döngü Değilken Döngü Bir Şey Değilse Application.ScreenUpdating = True End Sub

3. Tuşuna basın. F5 açılır pencerede kodu çalıştırmak için anahtar KutoolsforExcel iletişim kutusunda, içindeki sıfır değerlerine göre tüm satırları silmek istediğiniz sütun aralığını seçin ve ardından OK buton. Ekran görüntüsüne bakın:

sıfır ise doc sil 1

Ardından, belirtilen sütun aralığındaki sıfır değerlerine dayalı tüm satırlar hemen silinir.

sıfır ise doc sil 1

Kutools for Excel ile hücre sıfır içeriyorsa satırı sil

Birçok Excel kullanıcısı için, VBA kodunu kullanmak Excel'deki verileri kaldırmak tehlikelidir. VBA koduna tam olarak güvenmiyorsanız, burada denemenizi öneririz. Belirli Hücreleri Seçin yarar Kutools for Excel.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. İçerisindeki sıfır değerlerine göre tüm satırları kaldıracağınız sütun aralığını seçin ve ardından Kutools > seç > Belirli Hücreleri Seçin. Ekran görüntüsüne bakın:

2. içinde Belirli Hücreleri Seçin iletişim kutusu, yapmanız gerekenler:

(1) Şunu seçin: Tüm satır seçeneği Seçim türü Bölüm.

(2) Seçin eşittir İlk olarak Belirli tür açılır liste, ardından numarayı girin 0 metin kutusuna.

(3) OK düğmesine basın.

3. Size kaç satırın seçildiğini söyleyen bir iletişim kutusu açılır, OK buton. Şimdi, sıfır değerlerine sahip tüm satırlar, belirtilen sütun aralığında mevcuttur. Lütfen seçilen herhangi bir satıra sağ tıklayın ve ardından Sil sağ tıklama menüsünde. Ekran görüntüsüne bakın:

sıfır ise doc sil 1

Artık belirtilen sütunda sıfır değerine sahip tüm satırlar hemen silinir. Ekran görüntüsüne bakın:

sıfır ise doc sil 1

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

Kutools for Excel ile hücre sıfır içeriyorsa satırı sil

İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
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ç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ 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...

Açıklama

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 (15)
No ratings yet. Be the first to rate!
Luz aristi
Luz aristi
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Reply
0
0
Guest
Guest
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
Reply
0
0
AndrewRosales
AndrewRosales     Guest
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
Reply
0
0
crystal
crystal     AndrewRosales
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
Reply
Report
0
0
Sheri
Sheri
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
Reply
0
0
crystal
crystal     Sheri
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
Reply
Report
0
0
sheri.dohm@gmail.com
    crystal
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
Reply
Report
0
0
R. Arunkumar
R. Arunkumar
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
Reply
0
0
J Murphy
J Murphy
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
Reply
0
0
Andrew
Andrew
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Reply
0
0
yoav
yoav     Andrew
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
Reply
0
0
Anonymous
Anonymous     Andrew
This comment was minimized by the moderator on the site
thanks for the response, worked for me
Reply
0
0
Andrew
Andrew
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Reply
0
0
Scott
Scott
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
Reply
0
0
Tom B
Tom B
This comment was minimized by the moderator on the site
This was a life saver!!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations