Excel tablosunda "Yinelenen" sütun başlığında otomatik numaralandırmayı nasıl engellerim?

Excel'de tabloya yinelenen bir sütun başlığı girdiğinizde, sistem otomatik olarak "ad", "ad1", "ad2" gibi numaralandırmalar ekler ve aşağıdaki ekran görüntüsünde görüldüğü gibi bu numaralar kaldırılamaz. Tablodaki yinelenen sütun başlıklarında otomatik numaralandırmayı önlemek için başlığın sonuna bir boşluk ekleyebilirsiniz. Aynı şekilde görünen ancak aslında farklı olan bu başlıkları otomatik olarak oluşturmanıza ve aralarında ayrım yapmanıza yardımcı olacak bir VBA kodu aşağıda yer almaktadır.

Başlığa otomatik olarak Sonundaki Boşluklar ekle

Not: Bu öğreticide yer alan yöntemler Excel 2021 sürümünde test edilmiştir; farklı Excel sürümlerinde bazı farklılıklar görülebilir.

1. Yinelenmesini istediğiniz başlıkları bir sütuna yazın, ardından Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Yeni bir modül oluşturmak için Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Microsoft Visual Basic for Applications penceresine kopyalayıp yapıştırın.

VBA: Yinela ve Sonundaki Boşluklar ekle

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Şeritteki Çalıştır düğmesine tıklayın veya kodu çalıştırmak için F5 tuşuna basın. İlk açılan iletişim kutusunda yinelenmesini istediğiniz başlıkları seçin ve Tamam'a tıklayın.

4. İkinci açılan iletişim kutusuna kullanmak istediğiniz Tekrarlama Sayısı'nı girin ve Tamam'a tıklayın.

5. Yinelenen başlıkların çıktısını almak istediğiniz hücreyi seçin ve Tamam'a tıklayın.

Artık başlıklar yinelendi ve sonundaki boşluklarla birlikte eklendi.

6. Başlıkları seçin ve kopyalamak için Ctrl+C tuşlarına basın; ardından ihtiyaç duyduğunuz tabloya geri yapıştırmak için Ctrl+Vtuşlarına basın.

Artık tablonun, numaralandırma olmadan Yinelenen sütun başlıklarını görebilirsiniz.

Excel’in sihrini KUTOOLS AI ile keşfedin

• Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle görselleştirin.
• Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
• VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri artık kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınızdaki dil bariyerlerini aşın.

Yapay zekâ destekli araçlarla Excel becerilerinizi geliştirin.Şimdi İndirinve verimlilikte daha önce tecrübe etmediğiniz bir seviyeyi yaşayın!

---

En İyi Ofis Verimlilik Araçları

Kutools for Excel, Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi 80 % Artırır

• Süper Formül Çubuğu (birden fazla metin satırı ve formülü kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtre Aralığı'na Yapıştır…
• Birleştirilmiş Hücreler/Satırlar/Sütunlar ve Verileri Saklama; Hücreleri Böl İçeriği; Yinelenen Satırları Birleştir ve Topla/Ortalama Al… Tekrarlanan Girişleri Önleyin;Aralıkları Karşılaştırın…
• Yinelenen veya Benzersiz Satırları Seçin; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Yaklaşık AramaÇok Sayıda Çalışma Kitabında; Rastgele Seçim…
• Tam Kopyala — Formül referansını değiştirmeden birden fazla hücreye;
  Otomatik Referans Oluştur — Birden fazla sayfaya;
  Madde İşaretleri Ekle, onay kutusu ve daha fazlası…
• Sık Kullanılan Formülleri Kaydedin ve Hızlıca Ekleyin—Aralıklar, Grafikler ve Resimler;Hücreleri Şifreleyin şifreyle;Posta Listesi Oluşturunve e-posta gönderin…
• Metni Çıkart, Metin Ekle, Belirli Konumdaki Karakteri Sil, Boşlukları Kaldır; Veri Sayfası İstatistikleri Oluşturun ve Yazdırın; Hücre İçeriği ile Açıklamalar Arasında Dönüştürme…
• 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 FiltreKalın, İtalik… gibi biçimlendirmeye göre
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları, Anahtar Sütuna göre birleştirin;Veriyi Birden Fazla Sayfaya Bölün;xls, xlsx ve PDF Dosyalarını Toplu Olarak Dönüştürün…
• PivotTable, Şuna Göre Gruplama Yapar: Hafta numarası, haftanın günü ve daha fazlası… Kilitli Olmayanları Göster, Seçimi Kilitle Farklı renklerle; Formül/Ad İçeren Hücreleri Vurgulayın…

Daha Fazla Bilgi Edinin…Tüm Özelliklerle 30 Günlük Ücretsiz Deneme…Satın Alın… 

---

Office Tab - Office'a sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir

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

Daha Fazla Bilgi Edinin…Tüm Özelliklerle 30 Günlük Ücretsiz Deneme…Satın Alın…