Başlık içeren boş sütunları Excel'de nasıl silerim?

Eğer birden fazla sütun içeren büyük bir çalışma sayfanız varsa, ancak bazı sütunların yalnızca bir başlığı varsa ve şimdi yalnızca bir başlık içeren bu boş sütunları aşağıdaki ekran görüntüsünde gösterildiği gibi silmek istiyorsanız. Bu işlem Excel'de hızlı ve kolay bir şekilde çözülebilir mi?

VBA kodu kullanarak başlık içeren boş sütunları silme

Kutools for Excel ile bir aralık / çalışma sayfası / çalışma kitabındaki birden fazla boş sütunu silme

VBA kodu kullanarak başlık içeren boş sütunları silme

Excel'de, bunları tek tek elle silmenin dışında bu işi çözmek için doğrudan bir yöntem bulunmamaktadır, ancak burada size bir kod tanıtabilirim, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutun, ardından Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Başlık içeren boş sütunları silme:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank columns with only headers are deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve başlık içeren boş sütunların silineceğini hatırlatan bir uyarı kutusu açılacaktır.

4. Tamam'a tıklayın, geçerli çalışma sayfasında yalnızca başlık içeren tüm boş sütunlar bir defada silinir.

Not: Eğer boş sütunlar varsa, onlar da silinecektir.

Kutools for Excel ile bir aralık / çalışma sayfası / çalışma kitabındaki birden fazla boş sütunu silme

Bazen yalnızca boş sütunları silmeniz gerekebilir, Kutools for Excel'in Gizli (Görünür) Satırları ve Sütunları Sil aracı bu görevi kolayca tamamlamanıza yardımcı olabilir.

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. Silinmesi gereken boş sütunları içeren sütun aralığını seçin.

2. Ardından Kutools > Sil > Gizli (Görünür) Satırları ve Sütunları Sil'e tıklayın, ekran görüntüsüne bakınız:

3. Gizli (Görünür) Satırları ve Sütunları Sil iletişim kutusunda, ihtiyacınız olan silme kapsamını Ara alanında açılır menüden seçebilirsiniz, Silme türü bölümünden Sütunlar'ı seçin ve ardından Ayrıntılı tür bölümünden Boş sütunlar'ı seçin, ekran görüntüsüne bakınız:

4. Ardından Tamam düğmesine tıklayın ve yalnızca boş sütunlar bir defada silinir. Ekran görüntüsüne bakınız:

İpuçları: Bu güçlü özellik sayesinde, ihtiyaçlarınıza göre boş satırları, görünür sütun veya satırları, gizli sütun veya satırları da silebilirsiniz.