Excel'de başlıklı boş sütunlar nasıl silinir?
Birden çok sütun içeren büyük bir çalışma sayfanız varsa, ancak bazı sütunlar yalnızca bir başlık içeriyorsa ve şimdi, aşağıdaki ekran görüntüsünü almak için yalnızca bir başlık içeren bu boş sütunları silmek istiyorsunuz. Bu, Excel'de hızlı ve kolay bir şekilde çözülebilir mi?
VBA kodunu kullanarak bir başlık içeren boş sütunları silin
VBA kodunu kullanarak bir başlık içeren boş sütunları silin
Excel'de, elle tek tek silmek dışında bu işle uğraşmanın doğrudan bir yöntemi yoktur, ancak burada sizin için bir kod sunabilirim, lütfen aşağıdaki işlemleri yapın:
1. basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Başlıklı boş sütunları silin:
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 and column(s) with only a header row have now been 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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve başlık içeren boş sütunların silineceğini size hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, geçerli çalışma sayfasındaki yalnızca başlığı olan tüm boş sütunlar bir defada silinir.
not: Boş sütunlar varsa bunlar da silinecektir.
Kutools for Excel ile bir aralık / çalışma sayfası / çalışma kitabındaki birden fazla boş sütunu silin
Bazen yalnızca boş sütunları silmeniz gerekir, Kutools for Excel'S Gizli (Görünür) Satırları ve Sütunları Sil yardımcı program bu görevi kolaylıkla bitirmenize yardımcı olabilir.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. Silinmesi gereken boş sütunları içeren sütun aralığını seçin.
2. Sonra tıklayın Kutools > Sil > Gizli (Görünür) Satırları ve Sütunları Sil, ekran görüntüsüne bakın:
3. In Gizli (Görünür) Satırları ve Sütunları Sil iletişim kutusunda, ihtiyaç duyduğunuzda Bak açılır listesinden silme kapsamını seçebilirsiniz, Sütunlar itibaren Türü sil bölümünü seçin ve ardından Boş sütunlar itibaren Ayrıntılı tip bölümü, ekran görüntüsüne bakın:
4. Sonra tıklayın Ok düğmesi ve bir defada yalnızca boş sütunlar silinir. Ekran görüntüsüne bakın:
İpuçları: Bu güçlü özellik sayesinde, ihtiyaç duyduğunuzda boş satırları, görünür sütunları veya satırları, gizli sütunları veya satırları da silebilirsiniz.
Şimdi Excel için Kutools'u Ücretsiz İndir'i tıklayın!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!