Come inserire lo stesso testo in ogni altra riga in Excel?

In questo articolo, ti mostreremo come inserire lo stesso testo in ogni altra riga in Excel. Continua a leggere per ulteriori dettagli.

Inserisci lo stesso testo in ogni riga con il codice VBA
Inserisci lo stesso testo in ogni altra riga con Kutools per Excel

Inserisci lo stesso testo in ogni riga con il codice VBA

Supponiamo che tu voglia inserire i testi “Nome”, “Data” e “Punteggio” in ogni altra riga all'interno di un intervallo specificato, come mostrato nello screenshot sottostante. Prova il seguente codice VBA.

1. Nel foglio di lavoro, premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Application.

2. Clicca su Inserisci > Modulo. Vedi screenshot:

3. Copia e incolla il seguente codice VBA nell'editor del Codice.

Codice VBA: inserisci lo stesso testo in ogni riga in 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

Note: Nel codice sopra:

Inserisci lo stesso testo in ogni altra riga con Kutools per Excel

Con il codice sopra, puoi inserire il testo solo in ogni riga. Che ne dici di inserire il testo in ogni n righe in Excel? In questa sezione, ti mostreremo l'utilità Inserisci righe di titolo di Kutools per Excel. Con questa utilità, inserire il testo in ogni ennesima riga diventa facile.

1. Clicca su Kutools > Inserisci > Inserisci righe di titolo per abilitare questa utilità.

2. Nella finestra di dialogo Inserisci righe di titolo, devi:

Ora il testo specificato è inserito in ogni n riga nell'intervallo selezionato.