Excel'de birden fazla boş sütunu hızlıca nasıl silersiniz?
Verileri bir web sayfası, CSV, metin dosyası veya benzeri kaynaklardan Microsoft Excel’e aktarırken birçok boş sütunla birlikte gelmiş olabilir. Bu boş sütunları tek tek silmek oldukça zaman alıcıdır. Bu yüzden bazı kullanıcılar sorunu çözmek için daha kolay yollar arar. İşte bu makalede, birden fazla boş sütunu hızlıca kaldırmanıza yardımcı olacak pratik ipuçlarını bir araya getirdik.
Çalışma sayfasında formül kullanarak birden fazla boş sütunu silin
Çalışma sayfasında VBA kodu kullanarak birden fazla boş sütunu silin
VBA kodu kullanarak başlıklı birden fazla boş sütunu silin
Çalışma sayfasında formül kullanarak birden fazla boş sütunu silin
Excel'de, sütunların boş olup olmadığını belirlemek için bir formül uygulayabilir, ardından sıralama özelliğini kullanarak tüm boş sütunları bir araya getirip hepsini aynı anda silebilirsiniz. İşte nasıl yapacağınız:
1. Veri Aralığınızın en üstüne yeni bir satır ekleyin; ekran görüntüsüne göz atın:
2. Ardından A1 hücresine aşağıdaki formülü girin ve diğer hücrelere uygulamak için doldurma tutamacını sağa doğru sürükleyin. Sütun boşsa TRUE, doluysa FALSE görüntülenir. Ekran görüntüsüne bakın:
3. Ardından yardımcı satırı da içeren Veri Aralığı’nı seçin ve "Veri" > "Sırala" seçeneğine tıklayın (ekran görüntüsüne bakın):
4. Açılan "Sırala" iletişim kutusunda "Seçenekler" düğmesine tıklayın. "Sıralama Seçenekleri" iletişim kutusunda "Soldan sağa sırala" seçeneğini işaretleyin; ekran görüntülerine göz atın:
 |  |  |
5. "Tamam" düğmesine tıklayarak "Sırala" iletişim kutusuna dönün. Ardından "Sıralama ölçütü" açılır listesinden "Satır 1" seçeneğini, "Sıralama ölçütüne göre" bölümünden "Hücre Değerleri"ni ve "Sıra" bölümünden de "En büyükten en küçüğe" seçeneğini belirleyin (ekran görüntüsüne bakın):
6. Böylece tüm boş sütunlar verilerinizin sol tarafına taşınır. Artık bu sütunların tamamını seçip sağ tıklayarak “Sil” seçeneğini kullanabilir ve tüm boş sütunları tek seferde kaldırabilirsiniz; ekran görüntüsüne bakın:
Çalışma sayfasında VBA kodu kullanarak birden fazla boş sütunu silin
VBA makrosu kullanmak işleri çok daha kolay hale getirir. Aşağıdaki VBA kodu size yardımcı olabilir. Şöyle yapın:
1. Excel'de "Alt + F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki makroyu Modül Penceresine yapıştırın.
VBA kodu: Seçim içindeki birden fazla Boş Sütunlar'u sil
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. Bu makroyu çalıştırmak için F5 tuşuna basın ve açılan iletişim kutusundan ihtiyacınız olan çalışma aralığını seçin. Ekran görüntüsüne bakın:
4. Tüm boş sütunları seçim içinden kaldırmak için "Tamam" düğmesine tıklayın. Ekran görüntüsüne göz atın:
Birden fazla boş sütunu Seçili Aralık / Geçerli Çalışma Sayfası / tüm çalışma kitabında Kutools for Excel ile silin
Kutools for Excel’in Gizli Satır/Sütunları Sil aracı, aynı anda birden fazla boş satırı veya sütunu hızlıca kaldırmanıza olanak tanır.
Kutools for Excel'i yükledikten sonra, şu adımları izleyin:
1. "Kutools" > "Sil" > "Gizli satır/sütunları sil" seçeneğine tıklayın (ekran görüntüsüne bakın):
2. "Gizli Satır/Sütunları Sil" iletişim kutusunda, işlemi uygulamak istediğiniz alanı "Arama Kapsamı" açılır listesinden seçin. (Not: "Seçili Aralık" seçeneğini kullanmak istiyorsanız, öncelikle bir hücre aralığı belirlemelisiniz.) Ardından "Silme Türü" bölümünde "Sütunlar" seçeneğini işaretleyip "Detaylı Tür" kısmından "Boş Sütunlar"ı seçin. Ekran görüntüsüne göz atın:
3. Ardından "Tamam" düğmesine tıklayın; böylece Boş Sütunlar, Aralık Seç bölümünden kaldırılır. Ekran görüntüsüne bakın:
VBA kodu kullanarak başlıklı birden fazla boş sütunu silin
Bazen çalışma sayfasında yalnızca başlık içeren tüm boş sütunları silmek isteyebilirsiniz. Aşağıdaki VBA kodu bu işlemde size yardımcı olabilir. Bunun için aşağıdaki adımları izleyin:
1. Excel'de "Alt + F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki makroyu Modül Penceresine yapıştırın.
VBA kodu: Başlıklı tüm boş sütunları sil
Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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. Ardından bu kodu çalıştırmak için F5 tuşuna basın; ekranda, "Boş Sütunlar silinecek!" başlıklı bir uyarı kutusu görüntülenecektir (ekran görüntüsüne bakın):
4. Ardından "Tamam" düğmesine tıklayın; böylece Geçerli Çalışma Sayfası’nda yalnızca başlık içeren tüm boş sütunlar aynı anda silinir. Ekran görüntülerine göz atın:
 | |  |
İlgili diğer makaleler:
- Excel'de Tüm Gizli Satırları veya Sütunları Silin
- Çok sayıda gizli satır ve sütun içeren büyük bir çalışma kitabınız varsa ve bu gizli verilere artık erişilemiyorsa, hepsini silmek isteyebilirsiniz. Tümünü hızlıca nasıl silebilirsiniz?
- Excel'de Tüm Resimleri veya Diğer Nesneleri Silin
- Microsoft Excel'de tüm resimleri silmek istiyorsanız, her birini tek tek seçip silmek oldukça zaman alıcı olabilir. Aşağıdaki püf noktaları, bu işlemi çok daha kolay ve hızlı hale getirebilir.
- Satırları silme, Arka Plan Rengi Temel Alınarak Excel'de
- Tüm satırları arka plan rengi temel alarak nasıl silebilirsiniz? Bu örnekte, aşağıdaki ekran görüntüsünde gösterildiği gibi mavi arka plan rengine sahip hücreler içeren tüm satırları silmem gerekiyor. Bu makaleyle Excel’de bu görevi yerine getirmenize yardımcı olacak bazı kodlara ulaşacaksınız.
- Google Sayfalarında Bir Sütun İçinde Belirli Metin İçeren Tüm Satırları Silin
- Diyelim ki Google Sayfalar’da bir veri aralığınız var ve bir sütundaki hücre değerlerine göre satırları silmek istiyorsunuz. Örneğin, C sütununda “Complete” metnini içeren tüm satırları kaldırmak istiyorum. Bu makalede, bunu Google Sayfalar’da nasıl başarabileceğinizi anlatacağım.
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve hiç deneyemediğiniz bir verimlilik yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— dakikalar içinde kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— tek tek eklenti satın almaya göre tasarruf sağlar