Ana içeriğe atla

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

Günlük Excel kullanımınızda yapmanız gereken bir durumla karşılaşabilirsiniz. mevcut sütunlar arasına daha fazla sütun ekle. Elbette, Ekle işlevini kullanarak sütunları tek tek ekleyebilirsiniz. Ancak büyük bir veriyle karşı karşıya olduğunuzda ve her saniye veya n. sütundan sonra üç sütun eklemeniz gerektiğinde, Ekle işlevi görünüşte etkili değildir. Peki görevi nasıl hızlı bir şekilde bitirebilirsin? Bu derste, sorunu çözmek için iki kolay yöntemden bahsedeceğiz.

VBA koduyla sabit aralıklarla veri aralığına belirli sayıda boş sütun ekleyin

Şaşırtıcı bir özellik ile sabit aralıklarla veri aralığına belirli sayıda boş sütun ekleyin


VBA koduyla sabit aralıklarla veri aralığına belirli sayıda boş sütun ekleyin

Aşağıdakini kullanabiliriz VBA kodu her n'inci sütundan sonra belirli sayıda boş sütun eklemek için. Lütfen aşağıdaki gibi yapın.

1. Tuşuna basın. Alt + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül ve aşağıdaki makroyu modül Pencere.

VBA kodu: Sabit aralıklarla verilere belirli sayıda sütun ekleyin

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. Tuşuna basın. F5 Bu kodu çalıştırmak için anahtar. seçmenizi hatırlatmak için bir bilgi istemi kutusu açılır. veri aralığı boş sütunlar eklemek istediğiniz yer.
doc ekleme-sütunları-aralık 1

4. Tıklayın OK buton. Başka bir istem kutusu açılır, lütfen girin sütun aralıklarının sayısı içinde Sütun aralığını girin kutu.
doc ekleme-sütunları-aralık 2

5. Tıklamaya devam edin OK buton. Üçüncü istem kutusu açılır, lütfen belirtin her aralıkta eklemek istediğiniz sütun sayısı kutuda.
doc ekleme-sütunları-aralık 3

6. Tıklayın OK sonuç almak için düğmesine basın.
doc ekleme-sütunları-aralık 4


Şaşırtıcı bir özellik ile sabit aralıklarla veri aralığına belirli sayıda boş sütun ekleyin

VBA kodu yöntemini kullanmak istemiyorsanız, Boş Satırlar ve Sütunlar Ekle özelliği Kutools for Excel sizin için mükemmel bir çözümdür. Bu özellik sayesinde, sadece birkaç tıklamayla belirli sayıda sütunu sabit aralıklarla veri aralığına ekleyebilirsiniz.

Başvurmadan önce Kutools for Excel, lütfen önce indirin ve kurun.

1. Önce mevcut veri aralığını seçin. sonra tıklayın Kutools > Ekle > Boş Satırlar ve Sütunlar Ekle.
doc ekleme-sütunları-aralık 5

2. Boş Satırlar ve Sütunlar Ekle iletişim kutusu açılır. 1. adımda seçtiğiniz veri aralığını Aralık kutusunda görebilirsiniz. Seç Boş sütunlar seçeneği Tip ekle bölüm. Ve belirtin sütun aralıklarının sayısı ve her aralıkta eklemek istediğiniz sütunlar. Burada 1 ve 3'ü ayrı ayrı giriyorum.
doc ekleme-sütunları-aralık 6

3. Tıklayın OK Ayarı bitirmek ve sonucu almak için düğmesine basın.
doc ekleme-sütunları-aralık 7

not: Bu yardımcı programı ücretsiz (30 günlük) denemek istiyorsanız, lütfen indirmek için tıklayın ve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


Diğer İşlemler (Makaleler)

Excel'de Geçerli Tarihe Dayalı Bir Satır Nasıl Hızlı Bir Şekilde Eklenir?
Tarih içeren bir satır içeren bir sayfa olduğunu varsayarsak ve şimdi çalışma kitabını her gün açarken otomatik olarak değişecek olan geçerli tarihe doğru bir satır eklemek istiyorum. Excel'de çözebilecek bir numara var mı?

Excel'de Her Zaman Yukarıya Yerine Boş Bir Satır Nasıl Eklenir?
Hepimizin bildiği gibi, bir çalışma sayfasına boş satır eklerken, boş satır her zaman seçilen satırın veya hücrenin üstüne eklenecektir. Ancak bazen, satırı seçili hücrenin veya satırın altına eklemeniz gerekebilir. Bu işi Excel'de nasıl çözebilirsin?

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

Excel'de Belirli Metinden Sonra Boş Bir Satır Nasıl Eklenir?
Aşağıdaki ekran görüntüsü gibi belirli bir metinden sonra boş satırlar eklemek istiyorsanız, bunları tek tek manuel olarak eklemeden hızlı ve kolay bir şekilde nasıl başa çıkabilirsiniz?


  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
kte sekmesi 201905
  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations