Comment empêcher la numérotation automatique sur l'en-tête de colonne en double dans le tableau Excel ?

Dans Excel, lorsque vous tapez l'en-tête de colonne en double dans le tableau, un numéro sera automatiquement ajouté, tout comme nom, nom1, nom2, et le numéro ne peut pas être supprimé, comme le montre la capture d'écran ci-dessous. Pour empêcher la numérotation automatique au niveau de l'en-tête de colonne en double dans le tableau, vous pouvez ajouter un espace de fin à l'en-tête en double. Voici un code VBA qui peut vous aider à répéter l'en-tête et à ajouter automatiquement des espaces de fin pour les rendre différents mais identiques.

Ajouter automatiquement des espaces de fin à l'en-tête

Remarque : les méthodes fournies dans ce didacticiel sont testées dans Excel 2021, il peut y avoir des différences dans différentes versions d'Excel.

1. Tapez les en-têtes que vous souhaitez répéter dans une colonne, puis appuyez sur autre + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module pour créer un nouveau module dans le Microsoft Visual Basic pour applications fenêtre, puis copiez et collez-y le code ci-dessous.

VBA : répéter et ajouter des espaces de fin

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. Cliquez Courir  bouton dans le ruban ou appuyez sur F5 touche pour activer le code, dans la première boîte de dialogue contextuelle, sélectionnez les en-têtes que vous souhaitez répéter. Cliquez sur OK.

4. Dans la deuxième boîte de dialogue contextuelle, saisissez les heures de répétition souhaitées. Cliquez sur OK.

5. Sélectionnez une cellule dans laquelle vous souhaitez afficher les en-têtes répétés. Cliquez sur OK.

Maintenant, les en-têtes ont été répétés et ajoutés avec des espaces de fin.

6. Sélectionnez les en-têtes et copiez-les en appuyant sur Ctrl + C, et collez-les dans le tableau dont vous avez besoin en appuyant sur Ctrl + V.

Vous pouvez maintenant voir que le tableau a des en-têtes de colonne en double sans numérotation.

---

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...