Vba'da sütunlar nasıl silinir (örneklerle)


VBA kullanarak Excel’deki sütunları silmek için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: bir sütunu silin

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Bu özel örnek, C sütununu mevcut çalışma kitabından kaldıracaktır.

Yöntem 2: Aralıktaki tüm sütunları kaldırın

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Bu özel örnek, geçerli çalışma kitabındaki B ila D aralığındaki tüm sütunları silecektir.

Yöntem 3: Birden Çok Belirli Sütunu Sil

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Bu özel örnek, B ve D sütunlarını geçerli çalışma kitabından kaldıracaktır.

Aşağıdaki örnekler, Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını gösterir:

Örnek 1: VBA’da Bir Sütunu Silme

Veri kümemizden yalnızca C sütununu kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Veri kümesinden yalnızca C sütununun (“Destek” sütunu) kaldırıldığını unutmayın.

Örnek 2: Aralıktaki tüm sütunları kaldırın

B ila D aralığındaki tüm sütunları kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B ve D arasındaki her sütunun (“Puanlar”, “Asistler” ve “Ribauntlar” sütunları) veri kümesinden kaldırıldığını unutmayın.

Örnek 3: Birden çok belirli sütunu silin

B ve D sütunlarını veri kümesinden kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B ve D sütunlarının (“Puanlar” ve “Ribauntlar” sütunları) veri kümesinden kaldırıldığını unutmayın.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: Kullanılan sütunların sayısı nasıl sayılır?
VBA: Son kullanılan sütun nasıl bulunur?

Yorum ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir