İ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

Hücre, Excel-də müəyyən bir dəyərdən böyük / az olduqda satırları necə silmək olar?

Bəzən müəyyən sütunda olan hüceyrələr Excel-də müəyyən bir dəyərdən böyük və ya az olduqda satırları silmək tələb oluna bilər. Bu məqalə bu problemlə məşğul olmaq üçün bir neçə metoddan ibarətdir.

VBA kodu ilə müəyyən bir dəyərdən daha az / az olduqda satırları silin

Excel üçün Kutools ilə müəyyən bir dəyərdən daha böyük / az olduqda satırları silin

Excel hüququ üçün Kutoos ilə müəyyən bir dəyərdən daha böyük / az olduqda satırları silin


Sütundakı hüceyrə daha çox və ya müəyyən bir dəyərdən az olduqda bütün satırları seçin

The Xüsusi Hüceyrələri seçin faydası Excel üçün Kutools hüceyrənin müəyyən bir sütunda sertifikat dəyərindən daha çox və ya daha az olması vəziyyətində, müəyyən aralıdakı bütün satırları asanlıqla seçməyinizə kömək edə bilər. Aşağıdakı ekran görüntüsünə baxın:

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. Daha çox oxu İndi pulsuz sınaq yükləyin


VBA kodu ilə müəyyən bir dəyərdən daha az / az olduqda satırları silin


Sütun D-də hüceyrə Excel-də müəyyən bir dəyərdən böyük və ya daha az olduqda, bütün satırları silmək istədiyiniz halda. Bunu bacarmaq üçün aşağıdakı VBA kodu çalıştırabilirsiniz.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > modul. Aşağıdakı VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın.

VBA kodu: Excel-də müəyyən bir dəyərdən daha böyük / az olduqda satırları silin

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Qeyd: Yuxarıda göstərilən kodda,> 30000, hüceyrələr müəyyən bir sütunda 30000-dən çox olduqda satırları silməyiniz deməkdir. Hücrelər müəyyən bir dəyərdən az olduqda satırları silmək istəyirsinizsə, işarəni> <və sonra dəyərinizi təyin edin.

3. Basın F5 kodu açmaq üçün düyməni basmaqla açın Excel üçün Kutools informasiya qutusunda, bu sütundakı hüceyrələrin müəyyən bir dəyərdən daha çox və ya daha az olacağını tapa biləcəyiniz aralığı (tək sütun) seçin. Və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

Sütun D-də 30000-dən çox olan hüceyrə dəyəri olan bütün satırlar dərhal silinir.


Excel üçün Kutools ilə müəyyən bir dəyərdən daha böyük / az olduqda satırları silin

The Xüsusi Hüceyrələri seçin faydası Excel üçün Kutools müəyyən bir sütundakı müəyyən bir dəyərdən daha çox və ya daha kiçik hüceyrələri olan bütün satırları seçməyə kömək edə bilər və sonra seçilmiş bütün sətirləri əl ilə bir dəfə 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. Satırları silmək istədiyiniz sütunu seçin, sonra basın Kutools > seçmək > Xüsusi Hüceyrələri seçin. Ekran görüntüsünə baxın:

2. İçində Xüsusi Hüceyrələri seçin informasiya qutusu seçin Bütün satır ci Seçim növü bölmə. İçində Xüsusi tip bölümünü seçin Daha çox or Az ilk açılan siyahıdan müəyyən dəyəri növbəti mətn qutusuna daxil edin və sonra basın OK düyməsini basın.

3. Sonra bir neçə qutu seçildiklərini bildirmək üçün bir informasiya qutusu açılır OK düyməsini basın. Sütun D-də dərhal seçildikdə 30000-dən daha böyük olan bütün satırları görə bilərsiniz.

4. Seçilən satırlardan birini sağa vurun, sonra basın Sil sağ tıklayarak menyudan. Bütün seçilmiş satırlar silinir.


Excel hüququ üçün Kutoos ilə müəyyən bir dəyərdən daha böyük / az olduqda satırları silin

Yuxarıda göstərilən iki üsula əlavə olaraq, müəyyən sütundakı müəyyən bir dəyərdən daha çox və ya daha kiçik hüceyrələri olan bütün satırları süzə bilərsiniz və sonra bütün süzülmüş satırları Gizli (Görünür) Satır və Sütunu Sil faydası Excel üçün Kutools.

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. Sütun başlığını seçin və sonra basın Tarix > Süzgəc. Ekran görüntüsünə baxın:

2. Sütundakı açılan oku tıklayarak satırları silmək, sonra da basın Sayı Filtreleri > Greater Than or Daha az Aşağıdakı kimi ekran görüntüsü:

3. İçində Xüsusi AutoFilter informasiya qutusuna, daha çox və ya qutudan daha az olduqdan sonra müəyyən nömrəni daxil edin və sonra basın OK düyməsini basın.

4. Sonra D sütununda müəyyən bir dəyərdən böyük və ya az olan müəyyən hüceyrələri olan bütün satırlar süzülür. Filtrelenmiş verileri seçerek bütün süzülmüş satırları silə və sonra da basın Kutools > Sil > Gizli (Görünür) Satır və Sütunları Sil. Ekran görüntüsünə baxın:

5. İçində Gizli (Görünür) Satır və Sütunları Sil informasiya qutusuna əmin olun Seçilən aralıda variantda seçilir Baxın açılan siyahıdan seçin Satır ci Türü sil bölümünde, Görünür satırlar seçeneğini Ətraflı növü bölmə və nəhayət basın OK düyməsini basın.

6. Sonra seçilən sıra bütün görünən satır dərhal silinir, tıklayarak filter ləğv edə bilərsiniz Tarix > Süzgəc.


Excel üçün Kutools ilə müəyyən bir dəyərdən daha böyük / az olduqda satırları 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!


Related articles:



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.
    karolina.n28 · 1 years ago
    Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook?
    I need it to delete the rows if date in column A is