Excelde Boş Satırları Silme Formülü

Excel’de Boş Satırları Silme Formülü

Excel’de boş satırları silmek için kullanabileceğiniz birkaç farklı formül bulunmaktadır. Bu formüllerden hangisini kullanacağınız, verilerinizin yapısına ve silmek istediğiniz boş satırların konumuna bağlıdır.

1. Boş Satırları Silme Formülü: GOTO

GOTO formülü, Excel’de boş satırları silmek için kullanabileceğiniz en basit formüllerden biridir. Bu formül, boş satırları bulmak için hücre aralığını tarar ve ardından bu satırları siler.

GOTO formülünü kullanmak için aşağıdaki adımları izleyin:

  1. Boş satırları silmek istediğiniz hücre aralığını seçin.
  2. Formül çubuğuna “=GOTO(A1)” yazın.
  3. Enter tuşuna basın.

GOTO formülü, seçili hücre aralığını tarayacak ve boş satırları bulacak ve ardından bu satırları silecektir.

2. Boş Satırları Silme Formülü: COUNTBLANK

COUNTBLANK formülü, Excel’de boş satırları silmek için kullanabileceğiniz bir diğer formüldür. Bu formül, seçili hücre aralığında kaç tane boş satır olduğunu sayar ve ardından bu satırları siler.

COUNTBLANK formülünü kullanmak için aşağıdaki adımları izleyin:

  1. Boş satırları silmek istediğiniz hücre aralığını seçin.
  2. Formül çubuğuna “=COUNTBLANK(A1:A10)” yazın.
  3. Enter tuşuna basın.

COUNTBLANK formülü, seçili hücre aralığında kaç tane boş satır olduğunu sayacak ve ardından bu satırları silecektir.

3. Boş Satırları Silme Formülü: VBA

VBA (Visual Basic for Applications), Excel’de boş satırları silmek için kullanabileceğiniz bir programlama dilidir. VBA, GOTO ve COUNTBLANK formüllerinden daha esnektir ve daha karmaşık görevleri gerçekleştirmek için kullanılabilir.

VBA kullanarak boş satırları silmek için aşağıdaki adımları izleyin:

  1. VBA düzenleyicisini açmak için Alt+F11 tuşlarına basın.
  2. Yeni bir modül oluşturmak için Ekle > Modül’e tıklayın.
  3. Aşağıdaki kodu modüle yapıştırın:

“`
Sub DeleteBlankRows()
Dim rng As Range
Dim i As Long

rng = ActiveSheet.UsedRange
For i = rng.Rows.Count To 1 Step -1
    If Application.WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
        rng.Rows(i).Delete
    End If
Next i

End Sub
“`

  1. Kodu çalıştırmak için F5 tuşuna basın.

VBA kodu, aktif sayfadaki tüm boş satırları silecektir.

Faydalı Siteler ve İlgili Dosyalar

Yayımlandı

kategorisi