Excel'de belirli sütunlarda eksik / boş değerler içeren satırlar nasıl silinir?

Bazı durumlarda, Excel'deki bir hücre aralığındaki eksik değere veya boş hücreye sahip tüm satırları silmeniz gerekebilir. Bu makale size bu sorunu nasıl çözeceğinizi gösterecektir.

VBA kodu ile belirli sütunlarda eksik / boş değerler içeren satırları silin

---

VBA kodu ile belirli sütunlarda eksik / boş değerler içeren satırları silin

Aşağıdaki ekran görüntüsü gibi B ve D sütunlarında eksik değer varsa satırları silmek istediğinizi varsayarsak. Bunu başarmak için aşağıdaki VBA kodunu çalıştırabilirsiniz.

1. Basın Ara Toplam + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Belirli sütunlarda eksik / boş değerleri olan satırları silin

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    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 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3. Basın F5 kodu çalıştırmak için anahtar. Sonra bir Kutools for Excel iletişim kutusu açılır, lütfen eksik değer olup olmadığını kontrol etmek istediğiniz sütun aralığını seçin ve ardından OK düğmesine basın.

Tıkladıktan sonra OK düğmesi, B ve D sütunlarında değeri eksik olan tüm satırların hemen silindiğini görebilirsiniz. Ekran görüntüsüne bakın:

not: Aynı anda çalışmak için birden fazla aralık seçemezsiniz. Birden fazla sütunda eksik değer varsa ve tüm satırları silmek istiyorsanız, yukarıdaki 3. adımı bir sütundan diğerine tekrarlayabilirsiniz.

---

---

İlgili Makaleler:

• Hücre, Excel'de belirli bir değerden büyük / küçükse satırlar nasıl silinir?
• Excel'deki ilk başlık satırı dışındaki tüm satırlar nasıl silinir?
• Excel'de belirli satırın veya etkin hücrenin altındaki tüm satırlar nasıl silinir?