Bu yazımızda, Microsoft Excel'de VBA üzerinden boş sütunların nasıl silineceğini öğreneceğiz. Tamamen boş olan sütunları sileceğiz, yani tüm sütunda o veride veri yoksa.
Bir örnek alalım ve anlayalım:
A1:I21 aralığında, A sütununun Ad, B sütununun boş, C sütununun Sokak adresini, D sütununun Şehir, E sütununun boş, F sütununun bölgeyi, G sütununun boş, H sütununun ülkeyi içeren verilerimiz var. ad ve sütun I telefon numarasını içerir.
Verilerden boş sütunları silmek istiyoruz, aşağıdaki adımları ve kodu izleyin:
- Alt+F11 tuşuna basmak için VBE sayfasını açın
- Kodu yazmak için modülü takın
- Aşağıda belirtilen kodu yazın:
Sub Delete_Columns() Dim C As Integer C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column C = 0 ise WorksheetFunction.CountA(Columns(C)) = 0 O zaman Columns(C).C = C ise Sil Bitir - 1 Döngü Sonu Alt
Kod Açıklaması:
İlk önce tüm değişkenleri tanımladık. Daha sonra boş sütun aralığı, ardından boş sütunları silmek için “Do kadar döngüsü” kullandık. Ve şimdi boş sütunu tanımladık ve komutu sildik.
Kodu çalıştırmak için klavyenizdeki F5 tuşuna basın,
- Tüm boş sütunlar silinecek.
Bu şekilde Microsoft Excel'de VBA üzerinden boş sütunları silebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın