İ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

Excel-də mənfi dəyərləri olan satırları necə silmək olar?

Şübhəsiz, aşağıdakı məlumatlar aralığına sahibsiniz və sütun B-də mənfi olduqda bütün satırları silmək istəyirsiniz, bu problemi Excel-də həll etmək üçün yaxşı üsullar var?

mənfi 1 ilə doc silin  2 mənfi 2 ilə doc silin

VBA kodunu istifadə edərək, mənfi nömrələri olan satırları silin

Excel üçün Kutools istifadə edərək, mənfi ədədləri olan satırları silin


arrow mavi sağ bubble VBA kodunu istifadə edərək, mənfi nömrələri olan satırları silin


Aşağıdakı VBA kodu, müəyyən bir sütunda mənfi ədəd olduqda, bütün satırları silmək üçün kömək edə bilər, xahiş edirik, aşağıdakıları yerinə yetirin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: mənfi nömrələri olan satırları silin

Sub Deleter()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. Və sonra basın F5 bu kodu yerinə yetirmək üçün açar qutusuna, mənfi ədədləri tapmaq istədiyiniz nömrənin sütunu seçin, ekran görünüşünə baxın:

mənfi 3 ilə doc silin

4. Sonra basın OK düyməsini bir dəfə salam nömrələri olan satır silindi.


arrow mavi sağ bubble Excel üçün Kutools istifadə edərək, mənfi ədədləri olan satırları silin

Bu işi idarə etmək üçün, Excel üçün Kutools'S Xüsusi Hüceyrələri seçin Xüsusiyyət də bu köməkliyi ilə bir xeyir verə bilər, ilk növbədə mənfi dəyərləri olan bütün satırları seçə bilərsiniz və sonra lazım olan bütün sətirləri silin.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutoolsxahiş edirəm:

1. Sütunu silmək istədiyiniz mənfi ədədləri seçin.

2. Sonra basın Kutools > seçmək > Xüsusi Hüceyrələri seçin, bax ekran görüntüsü:

mənfi 4 ilə doc silin

3. İçində Xüsusi Hüceyrələri seçin informasiya qutusu seçin Bütün satır seçimi Seçim növüvə sonra seçin Az dən Xüsusi tip və daxil edin 0 meyarların yanında mətn qutusuna daxil edin, ekran görünüşünə baxın:

mənfi 5 ilə doc silin

4. Sonra basın Ok, mənfi ədədləri olan satırlar bir an seçilmişdir və sonra basın ev > Sil > Sətir satırlarını silin Sizə lazım olan sildən silmək üçün ekran görüntülərinə baxın:

mənfi 6 ilə doc silin  2 mənfi 7 ilə doc silin

Haqqında: Seçmək üçün də sağa vurun Sil kontekst menyusundan seçilmiş satırları silin.



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.
    Jon White · 5 months ago
    Thanks for this!

    Is there a way of doing this with positive values too?
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hi, Jon,
      To remove rows with positive values, you just need to apply the following code, please try.
      Sub Deleter()
      Dim xRg As Range
      Dim xCell As Range
      Dim xTxt As String
      Dim I As Long
      On Error Resume Next
      xTxt = ActiveWindow.RangeSelection.Address
      Sel:
      Set xRg = Nothing
      Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
      If xRg Is Nothing Then Exit Sub
      If xRg.Areas.Count > 1 Then
      MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
      GoTo Sel
      End If
      If xRg.Columns.Count > 1 Then
      MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
      GoTo Sel
      End If
      For I = xRg.Rows.Count To 1 Step -1
      If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
      Next
      End Sub