KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de sabit aralıklarla belirli sayıda sütun nasıl eklenir?

YazarZhoumandy Değiştirme Tarihi

Excel’i günlük kullanımınızda, mevcut sütunlar arasına daha fazla sütun ekleme ihtiyacı hissedebilirsiniz. Elbette, Ekle işleviyle sütunları tek tek ekleyebilirsiniz. Ancak büyük miktarda veriniz varsa ve her ikinci veya n’inci sütundan sonra üç sütun eklemeniz gerekiyorsa, Ekle işlevi açıkça yetersiz kalır. Peki bu görevi hızlıca nasıl halledebilirsiniz? Bu eğitimde sorunu çözmek için iki kolay yöntemi inceleyeceğiz.

Sabit aralıklarla belirli sayıda Boş Sütunlar eklemek için VBA kodunu kullanın

Kutools for Excel kullanarak sabit aralıklarla belirli sayıda Boş Sütunlar ekleyin


Sabit aralıklarla belirli sayıda Boş Sütunlar eklemek için VBA kodunu kullanın

Belirli sayıda boş sütunu her n’inci sütundan sonra eklemek için aşağıdaki “VBA kodunu” kullanabilirsiniz. Lütfen aşağıdaki adımları uygulayın.

1. Excel'de "Alt + F11" tuşlarına basın; böylece "Microsoft Visual Basic for Applications" penceresi açılır.

2. "Ekle" > "Modül" seçeneğine tıklayıp 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. Açılan uyarı kutusu, boş sütun eklemek istediğiniz "Veri Aralığı"nı seçmenizi hatırlatır.
Excel'de VBA kullanarak sütun eklerken veri aralığı seçmek için bir istemi gösteren ekran görüntüsü

4. "Tamam" düğmesine tıklayın. İkinci bir uyarı kutusu açılacaktır; lütfen "Sütun aralığını girin" kutusuna sütun aralığı sayısını girin.
Excel'de VBA koduyla sütun eklerken sütun aralığını sorgulayan bir istemi gösteren ekran görüntüsü

5. "Tamam" düğmesine tıklamaya devam edin. Üçüncü uyarı kutusu açılacaktır; lütfen bu kutuya her aralıkta eklemek istediğiniz sütun sayısını girin.
Excel'de VBA koduyla her aralıkta kaç sütun ekleneceğini soran bir istemi gösteren ekran görüntüsü

6. Sonucu almak için "Tamam" düğmesine tıklayın.
VBA kodu kullanıldıktan sonra Excel'de sabit aralıklarla eklenen sütunları gösteren sonuç ekran görüntüsü


Kutools for Excel kullanarak sabit aralıklarla belirli sayıda Boş Sütunlar ekleyin

VBA kodu kullanmak istemiyorsanız, “Kutools for Excel”in “Boş Satır/Sütun Ekle” özelliği sizin için mükemmel bir çözümdür. Bu sayede veri aralığınıza sabit aralıklarla, sadece birkaç tıklamayla istediğiniz sayıda sütun ekleyebilirsiniz.

Kutools for Excelkarmaşık görevleri kolaylaştırmak, yaratıcılığı ve verimliliği artırmak için 300'den fazla gelişmiş özelliğe sahiptir.Yapay zeka yetenekleriyle entegre, Kutools görevleri hassas bir şekilde otomatikleştirerek veri yönetimini zahmetsiz hale getirir.Kutools for Excel hakkında ayrıntılı bilgi…         Ücretsiz deneme…

1. Önce mevcut Veri Aralığınızı seçin, ardından "Kutools" > "Ekle" > "Boş Satır/Sütun Ekle" seçeneğine tıklayın.
Excel'de Kutools 'Boş Satır ve Sütun Ekle' seçeneğini gösteren ekran görüntüsü

2. "Boş Satır/Sütun Ekle" iletişim kutusu açılır. Adım 1’de seçtiğiniz Veri Aralığı’nın Aralık kutusunda görüntülendiğini göreceksiniz. "Ekleme Türü" bölümünden "Boş Sütunlar" seçeneğini işaretleyin ve ardından "sütun aralığı sayısını" ile "her aralıkta eklemek istediğiniz sütun sayısını" belirtin. Bu örnekte sırasıyla 1 ve 3 değerlerini girdim.
Kutools 'Boş Satır ve Sütun Ekle' iletişim kutusunu, sütun aralığını ve eklenecek sütun sayısını belirtme seçenekleriyle gösteren ekran görüntüsü

3. Ayarı tamamlamak ve sonucu almak için **“Tamam”** düğmesine tıklayın.
Kutools kullanılarak sütun eklendikten sonraki nihai sonucu gösteren ekran görüntüsü

Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Şimdi Edinin


Diğer İşlemler (Makaleler)

Excel'de Geçerli Tarihe Göre Hızlıca Satır Nasıl Eklenir?
Diyelim ki tarihler içeren bir satırın yer aldığı bir sayfanız var. Şimdi, çalışma kitabını her gün açtığınızda otomatik olarak güncellenen geçerli tarihin hemen sağına yeni bir satır eklemek istiyorsunuz. Excel’de bunu yapmanın bir yolu var mı?

Excel'de Boş Satırı Her Zaman Üste Değil, Alta Nasıl Eklersiniz?
Bildiğiniz gibi, bir çalışma sayfasına boş satır eklerken bu satır her zaman seçili satırın veya hücrenin üstüne eklenir. Ancak bazen seçili hücre veya satırın altına bir satır eklemeniz gerekebilir. Excel’de bunu nasıl yaparsınız?

Excel'de Komut Düğmesiyle Otomatik Olarak Yeni Boş Bir Satır Nasıl Eklenir?
Çalışma sayfanızın belirli bir bölümüne yeni boş bir satır eklemeniz gerekebilir. Bu makalede, Excel'de bir Komut Düğmesine tıklayarak yeni boş bir satırı otomatik olarak nasıl ekleyebileceğinizi adım adım göstereceğiz!

Excel'de Belirli Bir Metinden Sonra Boş Satır Nasıl Eklenir?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, belirli bir metinden hemen sonra boş satırlar eklemek istiyorsanız, bunu tek tek elle yapmak yerine hızlı ve kolay bir şekilde nasıl gerçekleştirebilirsiniz?

En İyi Office Üretkenlik Araçları

🤖KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi’yi devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
Süper ARA:Çoklu Kriterli Düşeyara (VLookup)  |  Çoklu Değerli Düşeyara (VLookup)  |   Birden Fazla Sayfada Düşeyara (VLookup)   |   Bulanık Eşleme…
Gelişmiş Açılır Liste:Açılır Liste Hızlıca Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste…
Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
En İyi 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ diğer dil desteğiyle!

Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve verimlilikten önce hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…


Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir

  • Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
  • Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Tüm Kutools eklentileri — tek bir kurulum dosyasında!

Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.

ExcelWordOutlookTabsPowerPoint
  • Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
  • Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
  • Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
  • 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
  • En iyi fiyat-performans— tek tek eklenti satın almak yerine tasarruf edin