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

Bir listeyi filtrelemek ve geri kalan gizli veya görünür satırları Excel'de nasıl silebilirim?

Filtrelenmiş bir liste için, yalnızca yararlı verileri saklamak amacıyla gizli veya görünür satırları silmeniz gerekebilir. Bu makalede, Excel'de filtrelenmiş bir listenin geri kalan gizli veya görünür satırlarını silme yöntemlerini göstereceğiz.

Etkin çalışma sayfasındaki gizli satırları VBA kodu ile silin
Görünen tüm hücreleri seçerek filtrelenmiş listenin görünür satırlarını silin
Kutools for Excel ile gizli veya görünür filtrelenmiş liste satırlarını kolayca silin


Etkin çalışma sayfasındaki gizli satırları VBA kodu ile silin

Bu bölüm, aktif sayfadaki gizli satırları silmek için size VBA kodunu gösterecektir. Lütfen aşağıdaki işlemleri yapın.

1. Gizli satırları silmeniz gereken çalışma sayfasını etkinleştirin, Ara Toplam + F11 anahtarları aynı anda açmak 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 kodu: Gizli satırları silin

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Etkin sayfada gizli satırlar varsa, kodu çalıştırdıktan sonra, kaç gizli satırın silindiğini bildirmek için bir iletişim kutusu açılır. Tıkla OK Gizli satırları silmek için düğmesine basın. Ekran görüntüsüne bakın:

doc geri kalan 1'i sil

Aksi takdirde, kodu çalıştırdıktan sonra aşağıdaki iletişim kutusunu alacaksınız.

doc geri kalan 1'i sil

not: yukarıdaki VBA kodu yalnızca filtrelenmiş listenin gizli satırlarını değil, aynı zamanda daha önce manuel olarak gizlediğiniz gizli satırları da silebilir.


Tüm görünür hücreler özelliğini seçerek filtrelenmiş listenin görünür satırlarını silin

Filtrelenmiş listenin görünür satırlarını silmek için lütfen aşağıdaki işlemleri yapın.

1. Filtrelenen tüm satırları seçin ve F5 tuşuna basarak git iletişim kutusunu tıklayın, ardından Özel buton. Ekran görüntüsüne bakın:

doc geri kalan 1'i sil

2. içinde Özelliğe Git iletişim kutusunda Yalnızca görünür hücreler seçeneğini ve ardından OK düğmesine basın.

doc geri kalan 1'i sil

3. Şimdi tüm görünür satırlar seçildi, seçime sağ tıklayın ve ardından Satırları Sil.

doc geri kalan 1'i sil

Şimdiye kadar, tüm görünür satırlar filtrelenmiş listeden silinir.


Kutools for Excel ile gizli veya görünür filtrelenmiş liste satırlarını kolayca silin

Yukarıdaki iki yöntem, birçok Excel kullanıcısı için arzu edilen çözümler olmayabilir, burada size kullanışlı bir araç sunuyoruz. İle Gizli (Görünür) Satırları ve Sütunları Sil yarar Kutools for Excel, seçili aralıktaki / sayfalardaki, etkin sayfadaki veya Excel'deki tüm çalışma sayfasındaki gizli satırları kolayca silebilirsiniz.

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

1. Filtrelenmiş bir listenin yalnızca gizli veya görünür satırlarını silmek istiyorsanız, lütfen filtrelenmiş aralığı manuel olarak seçin ve ardından Kutools > Sil > Gizli (Görünür) Satırları ve Sütunları Sil. Ekran görüntüsüne bakın:

2. içinde Gizli (Görünür) Satırları ve Sütunu Sil iletişim kutusu, Seçilen Aralıkta seçilen Arama konumu açılır listeyi kontrol edin (ihtiyaç duyduğunuzda diğer seçenekleri seçebilirsiniz), satırlar seçeneği Türü sil bölümünde ve Ayrıntılı tip bölüm, kontrol et Görünür satırlar or Gizli satırlar İhtiyacınız olan seçenek. Ve son olarak OK düğmesine basın.

3. Ardından size kaç satırın silindiğini bildiren bir iletişim kutusu açılır, lütfen OK düğmesine basın.

  Ü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 filtrelenmiş listenin gizli veya görünür satırlarını silin


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 (7)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Geribildirim yeniden: gizli satır silme makrosu - bunun 900k satırda çalıştırılması faydalı olamayacak kadar uzun sürüyor. OC'd Threadripper 2X'te 1950+ saat ve hala çalışıyor (görevi bitirmek zorunda kaldı). Birden çok çekirdek kullanmak için optimize etmenin herhangi bir yolu var mı yoksa bu bir VBA sınırlaması mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Kod optimize edildi. Lütfen bir deneyin. Yorumun için teşekkür ederim.

Alt RemoveHiddenRows()
Boolean Olarak x İşaretini Karart
Dim xStr, xTemp As Dize
xDiv'i, xMod'u Uzun Süre Kısma
Dim I, xCount, xRows Uzunluğunda
Aralık olarak Dim xRg, xCell, xDRg
Dim xArr() Dize Olarak
On Error Resume Next
Application.ScreenUpdating = Yanlış
Application.EnableEvents = Yanlış
xRg'yi ayarla = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
xRows = xRg.Rows.Count
xRg = xRg(1) olarak ayarla
xFlag = Doğru
xTemp = ""
xSayı = 0
I = 1 ila xRows için
xCell = xRg.Offset(I - 1, 0) ayarla
xFlag iken yapın
Eğer xCell.EntireRow.Hidden ise
xStr = xCell.Adres
xFlag = Yanlış
başka
Ctn'ye Git
Eğer son
döngü
Eğer xCell.EntireRow.Hidden ise
xTemp = xStr & "," & xCell.Adres
Eğer son
Len(xTemp) > 171 ise
xCount = xCount + 1
ReDim xArr'ı Koru (1'den xCount'a)
xArr(xCount) = xStr
xStr = xCell.Adres
başka
xStr = xTemp
Eğer son
ctn:
Sonraki
xCount = xCount + 1
ReDim xArr'ı Koru (1'den xCount'a)
xArr(xCount) = xStr
I için = xCount To 1 Adım -1
Eğer ben = 1 O zaman
xStr = Orta(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
başka
xStr = xArr(I)
Eğer son
xDRg Hiçbir Şey Değilse
xDRg = Aralık(xStr) olarak ayarla
başka
xDRg = Birleştirme(xDRg, Aralık(xStr)) olarak ayarla
Eğer son
(Len(xDRg.Address) >= 244) Veya (xCount = 1) ise
xDRg.EntireRow.Delete
xDRg = Hiçbir şey olarak ayarla
Eğer son
Sonraki
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika. Teşekkürler! Bir sonraki fırsatımda / buna ihtiyacım olduğunda gözden geçirip geri cevap vereceğim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gizli satırları silmek için VBA kodu, hiç uğraşmadan mükemmel bir şekilde çalıştı. TEŞEKKÜR EDERİM!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bilgi için teşekkürler. Bu öğretici olmuştur. Lütfen 1 milyona kadar olan satırlardaki belirli sayıları filtrelemenin ve silmenin bir yolu var mı? Yukarıdaki kod bunu yapmak için değiştirilebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Üzgünüm, kodu bu kadar büyük satır verilerinde test etmedi. Belki verilerinizin bir kopyasını çıkarabilir ve kodun çalışıp çalışmadığını test edebilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba bu VBA kodu harika kullanışlıdır.
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