İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir siyahısı süzgəcdən necə silmək və gizli və ya görünən Excel satırlarını silmək necə?

Filtrelenmiş bir liste üçün, yalnız yararlı verileri saxlamaq üçün gizli və ya görünən satırları silmək tələb oluna bilər. Bu yazıda, Excel-də süzgəclənmiş bir siyahının qalan gizli və ya görünən satırlarını silmək üsullarını göstərəcəyik.

VBA kodu ilə aktiv işdə gizli satırları silin

Bütün görünən hüceyrələri seçərək süzülmüş siyahıların görünən satırlarını silin

Excel üçün Kutools ilə gizli və ya görünən sətirləri silin


VBA kodu ilə aktiv işdə gizli satırları silin


Bu bölmə, aktiv hesabatdakı gizli satırları silmək üçün VBA kodunu göstərəcəkdir. Xahiş edirik bunu edin.

1. Gizli satırları silmək üçün lazım olan işləri aktivləşdirin, düyməsini basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Microsoft Visual Basic for Applications proqramı penceresinde, basın Taxmaq > Modules. Aşağıdakı VBA kodunu Module pəncərəsinə köçürün və yapışdı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. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Aktiv hesabatda gizli satırlar varsa, kodu çalıştırdıktan sonra, bir neçə dəfə gizli satır silinmiş olduğunu bildirmək üçün bir informasiya qutusu açılır. Tıklayınız OK gizli satırları silmək üçün düyməni basın. Ekran görüntüsünə baxın:

doc istirahət 1 sil

Əks halda kodu çalıştırdıktan sonra aşağıdakı informasiya qutusunu əldə edəcəksiniz.

doc istirahət 1 sil

Qeyd: yuxarıda göstərilən VBA kodu yalnız süzülmüş siyahıların gizli satırlarını silə bilməz, həm də əvvəllər gizli olan gizli satırları silə bilərsiniz.


Bütün görünən hüceyrələrin xüsusiyyətlərini seçərək süzülmüş siyahıların görünən satırlarını silin

Süzülmüş siyahıların görünən satırlarını silmək üçün aşağıdakıları edin.

1. Bütün süzülmüş satırları seçin və basın F5 açmaq üçün açar Getmək informasiya qutusuna basın və sonra basın xüsusi düyməsini basın. Ekran görüntüsünə baxın:

doc istirahət 1 sil

2. İçində Xüsusi gedin informasiya qutusunu kontrol edin Yalnız görünən hüceyrələr seçimi seçin və sonra basın OK düyməsini basın.

doc istirahət 1 sil

3. İndi bütün görünən satırlar seçilir, seçimi sağ basın və sonra basın Satırları sil.

doc istirahət 1 sil

İndiyə qədər bütün görünən satırlar filtrelənmiş siyahıdan silinir.


Excel üçün Kutools ilə gizli və ya görünən sətirləri silin

Yuxarıda göstərilən iki metod çox Excel istifadəçiləri üçün arzu həlləri ola bilməz, burada sizə lazımlı bir alət təqdim edirik. İlə Gizli (Görünür) Satır və Sütunları Sil faydası Excel üçün Kutools, seçdiyiniz aralıklarda / cədvəllərdə, aktiv hesabatda və ya Excel-də bütün iş yerlərində gizli satırları asanlıqla silə bilərsiniz.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. Yalnız süzülmüş bir siyahının gizli və ya görünən satırlarını silmək istəsəniz, süzülmüş aralığı əl ilə seçin və sonra basın Kutools > Sil > Gizli (Görünür) Satır və Sütunları Sil. Ekran görüntüsünə baxın:

2. İçində Gizli (Görünür) Satır və Sütunu Sil informasiya qutusu seçin Seçilmiş Range-də ci Baxın açılan siyahı (istədiyiniz kimi digər variantları seçə bilərsiniz), yoxlayın Satır seçimi Türü sil bölmədə və Ətraflı növü bölmə, yoxlayın Görünən satırlar or Gizli satırlar Sizə lazım olan seçimi. Və nəhayət basın OK düyməsini basın. Ekran görüntüsünə baxın:

doc istirahət 1 sil

3. Sonra bir neçə qutu silinmiş olduğunu bildirmək üçün bir informasiya qutusu açılır OK düyməsini basın.

doc istirahət 1 sil


Excel üçün Kutools ilə gizli və ya görünən sətirləri silin

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maximillian Eckemoff · 9 months ago
    Feedback re: the macro for hidden row deletions - this takes too long to run on 900k rows to be useful. 2+ hours on an OC'd Threadripper 1950X and still running (had to end task). Any way to optimize it to use multiple cores or is this a VBA limitation?
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Hi,
      The code has been optimized. Please have a try. Thank you for your comment.

      Sub RemoveHiddenRows()
      Dim xFlag As Boolean
      Dim xStr, xTemp As String
      Dim xDiv, xMod As Long
      Dim I, xCount, xRows As Long
      Dim xRg, xCell, xDRg As Range
      Dim xArr() As String
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
      If xRg Is Nothing Then Exit Sub
      xRows = xRg.Rows.Count
      Set xRg = xRg(1)
      xFlag = True
      xTemp = ""
      xCount = 0
      For I = 1 To xRows
      Set xCell = xRg.Offset(I - 1, 0)
      Do While xFlag
      If xCell.EntireRow.Hidden Then
      xStr = xCell.Address
      xFlag = False
      Else
      GoTo Ctn
      End If
      Loop
      If xCell.EntireRow.Hidden Then
      xTemp = xStr & "," & xCell.Address
      End If
      If Len(xTemp) > 171 Then
      xCount = xCount + 1
      ReDim Preserve xArr(1 To xCount)
      xArr(xCount) = xStr
      xStr = xCell.Address
      Else
      xStr = xTemp
      End If
      Ctn:
      Next
      xCount = xCount + 1
      ReDim Preserve xArr(1 To xCount)
      xArr(xCount) = xStr
      For I = xCount To 1 Step -1
      If I = 1 Then
      xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
      Else
      xStr = xArr(I)
      End If
      If xDRg Is Nothing Then
      Set xDRg = Range(xStr)
      Else
      Set xDRg = Union(xDRg, Range(xStr))
      End If
      If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
      xDRg.EntireRow.Delete
      Set xDRg = Nothing
      End If
      Next
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub