Comment insérer le même texte dans toutes les autres lignes dans Excel?
Dans cet article, nous allons vous montrer comment insérer le même texte dans toutes les autres lignes d'Excel. Veuillez parcourir pour plus de détails.
Insérez le même texte dans chaque ligne avec le code VBA
Insérez le même texte dans une ligne sur deux avec Kutools for Excel
Insérez le même texte dans chaque ligne avec le code VBA
Supposons que vous souhaitiez insérer des textes «Nom», «Données» et «Score» à chaque ligne de la certaine plage, comme illustré ci-dessous. Veuillez essayer le code VBA suivant.
1. Dans la feuille de calcul, appuyez sur autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour Application fenêtre.
2. Cliquez insérer > Module. Voir la capture d'écran:
3. Copiez et collez ci-dessous le code VBA dans l'éditeur de code.
Code VBA: insérez le même texte dans chaque ligne dans Excel
Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step - 1
If Not Cells(emptyRow, 1).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
End If
Next emptyRow
End Sub
Notes: Dans le code ci-dessus:
Insérez le même texte dans une ligne sur deux avec Kutools for Excel
Avec le code ci-dessus, vous pouvez simplement insérer du texte dans chaque ligne. Que diriez-vous d'insérer du texte dans toutes les n lignes dans Excel? Dans cette section, nous allons vous montrer le Insérer des lignes de titres utilité de Kutools for Excel. Avec cet utilitaire, insérer du texte dans chaque n ligne ne sera plus un problème.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Cliquez Kutools > insérer > Insérer des lignes de titres pour activer cet utilitaire.
2. dans le Insérer des lignes de titres boîte de dialogue, vous devez:
Maintenant, le texte spécifié est inséré dans toutes les n lignes de la plage sélectionnée.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
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!