Comment insérer le même texte dans toutes les lignes alternées dans Excel ?

Dans cet article, nous allons vous montrer comment insérer le même texte dans toutes les lignes alternées dans Excel. Lisez la suite pour plus de détails.

Insérer le même texte dans chaque ligne avec un code VBA
Insérer le même texte dans toutes les lignes alternées avec Kutools pour Excel

Insérer le même texte dans chaque ligne avec un code VBA

Supposons que vous souhaitiez insérer les textes « Nom », « Données » et « Score » dans toutes les lignes alternées d'une plage spécifiée, comme illustré dans la capture d'écran ci-dessous. Essayez le code VBA suivant.

1. Dans la feuille de calcul, appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Application.

2. Cliquez sur Insérer > Module. Voir capture d'écran :

3. Copiez et collez le code VBA ci-dessous dans l'éditeur de code.

Code VBA : insérer 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

Remarques : Dans le code ci-dessus :

Insérer le même texte dans toutes les lignes alternées avec Kutools pour Excel

Avec le code ci-dessus, vous pouvez simplement insérer du texte dans chaque ligne. Mais qu'en est-il d'insérer du texte dans toutes les n lignes dans Excel ? Dans cette section, nous allons vous montrer l'utilitaire Insérer des lignes de titre de Kutools pour Excel. Avec cet utilitaire, insérer du texte dans toutes les n lignes devient facile.

1. Cliquez sur Kutools > Insérer > Insérer des lignes de titre pour activer cet utilitaire.

2. Dans la boîte de dialogue Insérer des lignes de titre, vous devez :

Maintenant, le texte spécifié est inséré dans toutes les n lignes de la plage sélectionnée.