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

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 iz)


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çmek > 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

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, 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 Ü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 (15)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bir hayat kurtarıcıydı!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VB kodunuz çalışmıyor. 10s konumunda Sıfır olan tüm satırları siler. Umarım kimse bunu gerçekten kullanmaz çünkü verileri silecektir ...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki kodu benim için çalışacak şekilde değiştirdim. C satırında "Delete" olan her satırı silmek istedim. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Rng Değilse Hiçbir Şey Değilse Rng.EntireRow.Delete End If Döngü Rng Değilken Hiçbir Şey Değildir Application.ScreenUpdating = True End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdaki kodu benim için çalışacak şekilde değiştirdim. Bu, C sütunundaki hücrede "Sil" bulunan her satırı sildi. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Değilse Rng Hiçbir Şey Değilse O Zaman Rng.EntireRow.Delete End If Döngü Rng Değilken Hiçbir Şey Değildir Application.ScreenUpdating = True End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
cevap için teşekkürler işime yaradı
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
işime yaradı, çok teşekkürler.
birden fazla sayfam varsa? tüm sayfalar için betiği 1 kez nasıl çalıştırabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
amacım için değiştirildi--yardımınız için teşekkür ederim: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Devam Et xTitleId = "" Application.Calculation = xlManual MsgBox "Kullanılmayan 0 miktarını kaldırmak istediğiniz aralığı ayarlayın "Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY"). öğesini seçin. Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Rng Değilse Hiçbir Şey Değilse O Zaman Rng.EntireRow.Delete Rng Değilken Döngü Hiçbir Şey Değilse Bitir Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).MsgBox "Kaldırıldı" öğesini seçin FG sütunundan 0'ın SATIRLARI - şimdi hesaplanıyor - lütfen bekleyin" Application.Calculation = xlAutomatic End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba canlarım, sayfa 0'deki "N" sütunundaki değeri = 1 olan satırları gizlemek için bir koda ihtiyacım var. Sayfa 2'deki ayrıntılar güncellendiğinde "N" sütununun değeri değişecektir. satırı gizlemeniz gerekir. Bunu Excel formülü ile yapmak mümkün mü (makro ve Excel Filtreleri olmadan).
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim için işe yaramadı. Seçtiğim sütundaki ve bitişik sütundaki tüm değerleri sıfıra çevirdi. Yanlış bir şey yapıyor olmalıyım!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Sheri,
Kod benim durumumda iyi çalışıyor. Hangi Excel sürümünü kullanıyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Kristal. Bunu iki yıl önce yayınlamıştım, bu yüzden sanırım anladım. Ama cevap için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu VB yeni modülüne yerleştirin.
Bu, o kelimeyi içeren satırı silmek için InputBox ile yapılır.

Nitelik VB_Name = "FindDelRowByWord"
Alt FindDelRow()
'20140616 güncellemesi
Menzil Olarak Dim Rng
Aralık Olarak Dim WorkRng
Dize olarak xRep'i karart
On Error Resume Next
xTitleId = "ZOK Araçları"
WorkRng = Application.Selection olarak ayarlayın
WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) olarak ayarlayın
xRep = Application.InputBox("Satırı silmek için kelime:", "ZOK Araçları", , , , , 2)
Application.ScreenUpdating = Yanlış
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Rng Değilse O Zaman Hiçbir Şey Değilse
Rng.EntireRow.Delete
Eğer son
Rng Değilken Döngü Hiçbir Şey Değildir
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ya büyük bir sayfanız varsa ve saklamak istediğiniz satırlar varsa ve belirli anahtar kelimeleri içeren ve bunları silen başka satırlar varsa? kutools benim için çalışıyor ama birçok satırın bu anahtar kelimeye sahip olduğu bir anahtar kelime için satırlar silindi, sadece aynı şeyi yapmak için birden fazla anahtar kelimeye sahip olmak istiyorum? bu yukarıdaki kod için çalışıyor mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Kutools aynı anda iki anahtar kelime ile ilgilenebilir. İkinci koşulunu "Ve" veya "Veya" ile etkinleştirmeniz gerekir. Umarım yardımcı olabilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt toplamın kullanımı, alt toplamın 0'a eşit olmasını gerektiren dosyaları ortadan kaldırmak için kullanılabilir mi?
Buraya henüz hiç yorum yapılmamış
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