Excel'de negatif değerlere sahip satırları nasıl silerim?
Diyelim ki aşağıdaki veri aralığınız var ve B sütunundaki sayı negatifse tüm satırları silmek istiyorsunuz, Excel'de bu sorunu çözmek için iyi yöntemler var mı?
 |  |  | VBA kodu kullanarak negatif sayılar içeren satırları silme Kutools for Excel kullanarak negatif sayılar içeren satırları silme |
VBA kodu kullanarak negatif sayılar içeren satırları silme
Aşağıdaki VBA kodu, belirli bir sütunda negatif sayılar varsa tüm satırları silmenize yardımcı olabilir, lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA Kodu: Negatif sayılar içeren satırları silme
Sub Deleter()
'updatebyExtendoffice
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. Ardından bu kodu çalıştırmak için F5 tuşuna basın, açılan kutuda negatif sayıları bulmak istediğiniz numara sütununu seçin, ekran görüntüsüne bakın:
4. Sonra Tamam düğmesine tıklayın, negatif sayılar içeren satırlar hemen silinecektir.
Kutools for Excel kullanarak negatif sayılar içeren satırları silme
Bu işi ele almak için Kutools for Excel'in Belirli Hücreleri Seç özelliği de size yardımcı olabilir; bu yardımcı programla, önce negatif değerler içeren tüm satırları seçebilir ve ardından ihtiyacınıza göre tüm satırları silebilirsiniz.
| Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile, 30 gün boyunca sınırlama olmadan ücretsiz deneyin. |
Kutools for Excel'i kurduktan sonra lütfen şu adımları izleyin:
1. Silmek istediğiniz negatif sayılar içeren sütunu seçin.
2. Ardından Kutools > Seç > Belirli Hücreleri Seç'e tıklayın, ekran görüntüsüne bakın:
3. Belirli Hücreleri Seç iletişim kutusunda, Seçim türünde Tüm Satır seçeneğini işaretleyin, ardından Belirli türden Küçüktür'ü seçin ve kriterlerin yanındaki metin kutusuna 0 girin, ekran görüntüsüne bakın:
4. Ardından Tamam'a tıklayın, negatif sayılar içeren satırlar hemen seçilecektir ve ardından ihtiyaç duyduğunuz şekilde seçili satırları silmek için Giriş > Sil > Çalışma Sayfası Satırlarını Sil'e tıklayın, ekran görüntülerine bakın:
 | |  |
İpucu： Ayrıca, seçili satırları silmek için sağ tıklayıp içerik menüsünden Sil'i seçebilirsiniz.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin