Excel tablosunda yinelenen sütun başlığında otomatik numaralandırma nasıl önlenir?

Excel'de, tabloya yinelenen sütun başlığını yazdığınızda, ad, ad1, ad2 gibi bir sayı otomatik olarak eklenir ve aşağıdaki ekran görüntüsünde gösterildiği gibi numara kaldırılamaz. Tabloda yinelenen sütun başlığında otomatik numaralandırmayı önlemek için, yinelenen üstbilgiye sondaki boşluk ekleyebilirsiniz. İşte başlığı tekrarlamanıza ve farklı ama aynı görünmelerine izin vermek için izleyen boşlukları otomatik olarak eklemenize yardımcı olabilecek bir VBA kodu.

Başlığa otomatik olarak sondaki boşlukları ekle

Not: Bu eğitimde sağlanan yöntemler Excel 2021'de test edilmiştir, farklı Excel sürümlerinde bazı farklılıklar olabilir.

1. Bir sütuna yinelemek istediğiniz başlıkları yazın, ardından Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül içinde yeni bir modül oluşturmak için Uygulamalar için Microsoft Visual Basic penceresini açın, ardından aşağıdaki kodu kopyalayıp yapıştırın.

VBA: Tekrar edin ve sondaki boşlukları ekleyin

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. tık koşmak  şeritteki düğmesine basın veya F5 Kodu etkinleştirmek için tuşuna basın, ilk açılan iletişim kutusunda tekrarlamak istediğiniz başlıkları seçin. Tıklamak OK.

4. İkinci açılan iletişim kutusunda, istediğiniz tekrarlama sürelerini yazın. Tıklamak OK.

5. Tekrarlanan başlıkların çıktısını almak istediğiniz hücreyi seçin. Tıklamak OK.

Şimdi başlıklar tekrarlandı ve sondaki boşluklarla eklendi.

6. Başlıkları seçin ve düğmesine basarak kopyalayın. Ctrl + Cöğesine basın ve bunları ihtiyacınız olan tabloya geri yapıştırın. Ctrl + V.

Artık tablonun numaralandırma olmadan yinelenen sütun başlıkları olduğunu görebilirsiniz.

---

En İyi Ofis Üretkenliği 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 ç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...

Devamı ... Tam Özellikler 30 Günlük Ücretsiz Deneme ... Satın alma... 

---

Office Tab - Office'e sekmeli arabirim getirir ve işinizi çok daha kolay hale getirir

• 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!

Devamı ... Tam Özellikler 30 Günlük Ücretsiz Deneme ... Satın alma...