Vba kullanarak birden çok sütun nasıl eklenir

VBA’yı kullanarak Excel’e birden çok sütun eklemek için aşağıdaki sözdizimini kullanabilirsiniz:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Bu özel makro, Sayfa1 adı verilen sayfanın D ila F aralığına üç boş sütun ekleyecek ve mevcut tüm sütunları sağa itecektir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanarak birden çok sütun nasıl eklenir?

Çeşitli basketbol oyuncuları hakkında bilgi içeren aşağıdaki veri setine sahip olduğumuzu varsayalım:

B sütunuyla başlayan üç boş sütun eklemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

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

Sayfa1 adı verilen bu çalışma sayfasının B, C ve D sütun konumlarına üç boş sütunun eklendiğine dikkat edin.

Daha önce B, C ve D sütunlarında bulunan değerler basitçe sağa itildi.

Not : VBA Insert işlevine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

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

VBA: Son kullanılan satırı nasıl bulabilirim?
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?