Normalde excel çalışma sayfasında sütunları silmek için iki farklı yöntemimiz vardır, biri klavye kısayolu ve diğeri sağ tıklama ve ekleme yöntemini kullanarak, ancak VBA'da herhangi bir sütunu birlikte silmek için silme komutunu ve tüm sütun ifadesini kullanmalıyız. bu, tek bir sütunu silmemiz gerekirse, tek bir sütun referansı veririz, ancak birden çok sütun için birden çok sütun referansı veririz.
Excel VBA Sütunu Sil
Excel'de kesme, kopyalama, yapıştırma, ekleme, silme, ekleme gibi birçok işlemi düzenli olarak yapıyoruz. Tüm bu eylemleri VBA Kodlamasını kullanarak kullanabiliriz. Öğrenmemiz gereken önemli kavramlardan biri VBA'da "sütun silme" dir. Bu yazıda, bu Sütunu Sil seçeneğini VBA'da nasıl kullanacağınızı göstereceğiz.
Excel VBA'da Sütun Silme Ne Yapar?
Adından da anlaşılacağı gibi, belirtilen sütunu silecektir. Bu görevi gerçekleştirmek için önce hangi sütunu silmemiz gerektiğini belirlememiz gerekir. Silinecek sütunların seçimi bir senaryodan diğerine farklıdır, bu nedenle bu makalede bazı önemli ve sıklıkla karşılaşılan senaryoları ele alacağız.
Sütunları silmek kolaydır. İlk olarak, sütunu seçmek için COLUMNS özelliğini kullanmamız gerekir, bu nedenle VBA'da Sütun Silme yönteminin sözdizimi aşağıdadır.
Sütunlar (Sütun Referansı). Sil
Böylece kodu şu şekilde oluşturabiliriz:
Sütunlar (2). Sil veya Sütunlar ("B"). Sil
Bu, 2 numaralı sütunu, yani Sütun B'yi silecektir.
Birden fazla sütunu silmek istersek, sütun giremeyiz. Sütunlara sütun başlıklarına, yani alfabelere göre başvurmamız gerekir.
Sütunlar ("A: D"). Sil
Bu, sütunu A'dan D'ye, yani ilk 4 sütunu siler.
Bunun gibi, belirli sütunları silmek için VBA'daki "Sütunu Sil" yöntemini kullanabiliriz. Aşağıdaki bölümde, onu daha iyi anlamak için daha fazla örnek göreceğiz. Okumaya devam etmek.
Excel VBA Sütun Silme Yöntemine Örnekler
Aşağıda, VBA kullanarak sütun silme örnekleri verilmiştir.
Örnek 1 - Silme Yöntemini Kullanma
Aşağıdaki gibi bir veri sayfasına sahip olduğunuzu varsayalım.
"Mar" sütun ayını silmek istiyorsak, önce sütunlar özelliğini seçin.
Kod:
Sub Delete_Example1 () Sütunlar (End Sub
Sütun numarasını veya alfabeyi belirtin. Bu durumda, 3 veya C'dir.
Kod:
Alt Sil_Örnek1 () Sütunlar (3). Sub
Silme yöntemini kullanın.
Not: Silme yöntemini seçmek için IntelliSense listesini alamazsınız. "Sil" yazmanız yeterlidirKod:
Alt Sil_Örnek1 () Sütunlar (3). Son Alt Sil
Veya sütun adresini bu şekilde girebilirsiniz.
Kod:
Sub Delete_Example1 () Sütunlar ("C"). End Sub'ı Sil
F5 tuşunu kullanarak bu Kodu çalıştırın veya manuel olarak çalıştırıp sonucu görebilirsiniz.
Her iki kod da belirtilen sütunu silmek için aynı işi yapacaktır.
Birden fazla sütunu silmek istiyorsak, bunlardan alfabede bahsetmemiz gerekir. Burada sütun numaralarını kullanamayız.
2'den 4'e kadar olan sütunları silmek istersek aşağıdaki gibi kodu geçebiliriz.
Kod:
Alt Sil_Örnek1 () Sütunlar ("C: D"). Son Altını Sil
Çalıştır seçeneği aracılığıyla bu kodu manuel olarak çalıştırın veya F5 tuşuna basın. Bu, "Şub", "Mar" ve "Nis" sütunlarını silecektir.
Örnek 2 - Çalışma Sayfası Adına Sahip Sütunları Silme
Yukarıdakiler, VBA kodunu kullanarak sütunların nasıl silineceğine dair bir genel bakıştır. Ancak bu, sütunları silmenin iyi bir uygulaması değildir. Çalışma sayfası adına atıfta bulunmadan, sütunu körü körüne silmek tehlikelidir.
Çalışma sayfası adından bahsetmediyseniz, hangi sayfa etkinse, o sayfanın sütunlarını silecektir.
İlk önce çalışma sayfasını adına göre seçmemiz gerekiyor.
Kod:
Sub Delete_Example2 () Çalışma Sayfaları ("Satış Sayfası"). End Sub seçin
Sayfayı seçtikten sonra sütunları seçmemiz gerekiyor. VBA RANGE nesnesini kullanarak da sütunları seçebiliriz.
Kod:
Alt Sil_Örnek2 () Çalışma Sayfaları ("Satış Sayfası"). Aralık Seç ("B: D"). Son Altını Sil
Bu, "Satış Sayfası" çalışma sayfasının B'den D'ye kadar olan sütunlarını silecektir. Bu kod için hangisinin aktif olduğu önemli değil. Yine de, yalnızca o sayfanın belirtilen sütunlarını silecektir.
VBA kodunu tek satırın kendisinde de oluşturabiliriz.
Kod:
Alt Sil_Örnek2 () Çalışma Sayfaları ("Satış Sayfası"). Aralık ("B: D"). Son Altını Sil
Bu aynı zamanda "Satış Sayfası" çalışma sayfasını seçmeden "B'den D'ye" sütunlarını da siler.
Örnek 3 - Boş Sütunları Silin
Aşağıdaki gibi alternatif boş sütunlara sahip verileriniz olduğunu varsayalım.
Bu nedenle, aşağıdaki kodu kullanabileceğimiz her alternatif sütunu silin.
Kod:
Sub Delete_Example3 () Dim k As Integer For k = 1 to 4 Columns (k + 1). Sil Sonraki k End Sub
Bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın. Ardından, tüm alternatif boş sütunları silecek ve verilerimiz böyle görünecek.
Örnek 4 - Boş Hücre Sütunlarının Silinmesi
Şimdi bu örneğe bakın. Veri aralığında boş hücrelerden herhangi biri bulunursa, tüm sütunu silmemiz gereken belirli durumlar vardır. Örnek olarak aşağıdaki verileri düşünün.
Sarı renkli hücrelerin tümü boş. Yani burada, benim ihtiyacım tüm boş hücre sütunlarını silmek. Aşağıdaki kod bunu yapacak.
Kod:
Sub Delete_Example4 () Range ("A1: F9"). Selection.SpecialCells (xlCellTypeBlanks) seçin. Selection.EntireColumn.Delete End Sub
Size bu kodu satır satır açıklayayım.
Verilerimiz A1'den F9'a kadar oradadır, bu yüzden önce bu aralığı seçmem gerekiyor ve aşağıdaki kod bunu yapacak.
Aralık ("A1: F9"). Seçin
Bu seçili hücre aralığında boş olan hücreleri seçmem gerekiyor. Yani boş bir hücre seçmek için özel hücre özelliğine ihtiyacımız var ve bu özellikte hücre tipini boş olarak kullandık.
Selection.SpecialCells (xlCellTypeBlanks).
Ardından, tüm boş hücreleri seçecek ve seçimde, seçimin tüm sütununu siliyoruz.
Selection.EntireColumn.Delete
Böylece nihai sonucumuz şöyle görünecek.
Boş hücreyi bulduğu her yerde, bu boş hücreleri tüm sütunu sildi.
Bu Excel VBA Sütunu Sil'i buradan indirebilirsiniz - VBA Sütun Şablonunu Sil
