Excel'de Belirli Aralıklarla Belirli Sayıda Sütun Nasıl Eklenir?

Excel'i günlük kullanımınızda, mevcut sütunlar arasına daha fazla sütun eklemek istediğiniz bir durumla karşılaşabilirsiniz. Tabii ki, Ekle fonksiyonunu kullanarak sütunları tek tek ekleyebilirsiniz. Ancak büyük miktarda veriyle karşı karşıya olduğunuzda ve her ikinci veya n'inci sütundan sonra üç sütun eklemeniz gerektiğinde, Ekle fonksiyonu açıkça etkili olmaz. Peki bu görevi nasıl hızlı bir şekilde tamamlayabilirsiniz? Bu eğitimde, sorunu çözmek için iki kolay yöntemden bahsedeceğiz.

Sabit aralıklarla veri aralığına belirli sayıda boş sütun eklemek için VBA kodu kullanın

Sabit aralıklarla veri aralığına belirli sayıda boş sütun eklemek için Kutools for Excel'i kullanın

Aşağıdaki "VBA kodunu" her n'inci sütundan sonra belirli sayıda boş sütun eklemek için kullanabiliriz. Lütfen aşağıdaki adımları izleyin.

1. Excel'de "Alt + F11" tuşlarına basın ve bu işlem "Microsoft Visual Basic for Applications" penceresini açar.

2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki makroyu "Modül" penceresine yapıştırın.

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Bu kodu çalıştırmak için "F5" tuşuna basın. Seçili "veri aralığını" boş sütunlar eklemek istediğiniz yerde seçmenizi hatırlatan bir uyarı kutusu açılır.

4. "Tamam" düğmesine tıklayın. Başka bir uyarı kutusu açılır, lütfen "Sütun aralığı girin" kutusunda "sütun aralıklarının sayısını" girin.

5. "Tamam" düğmesine tıklayarak devam edin. Üçüncü bir uyarı kutusu açılır, lütfen kutuda "her aralıkta eklemek istediğiniz sütun sayısını" belirtin.

6. Sonucu almak için "Tamam" düğmesine tıklayın.

Eğer VBA kod yöntemi kullanmak istemiyorsanız, "Kutools for Excel'in" "Boş Satır ve Sütun Ekle" özelliği sizin için mükemmel bir çözümdür. Bu özellik sayesinde, yalnızca birkaç tıklamayla sabit aralıklarla veri aralığına belirli sayıda sütun ekleyebilirsiniz.

1. Öncelikle mevcut veri aralığını seçin. Ardından "Kutools" > "Ekle" > "Boş Satır ve Sütun Ekle" seçeneğine tıklayın.

2. "Boş Satır ve Sütun Ekle" iletişim kutusu açılır. 1. adımda seçtiğiniz veri aralığını Aralık kutusunda görebilirsiniz. "Ekleme Türü" bölümünde "Boş sütunlar" seçeneğini işaretleyin. Ve "sütun aralıklarının sayısı" ile "her aralıkta eklemek istediğiniz sütun sayısını" belirtin. Burada ben ayrı ayrı 1 ve 3 girdim.

3. Ayarlamayı tamamlamak ve sonucu almak için "Tamam" düğmesine tıklayın.