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. Sfoglia per maggiori dettagli.
Inserisci lo stesso testo in ogni riga con codice VBA
Inserisci lo stesso testo in ogni altra riga con Kutools per Excel
Inserisci lo stesso testo in ogni riga con codice VBA
Supponendo di voler inserire i testi "Nome", "Dati" e "Punteggio" in ogni riga in un determinato intervallo come mostrato nell'immagine sottostante. Prova il seguente codice VBA.
1. Nel foglio di lavoro, premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic per l'applicazione finestra.
2. Clic inserire > Moduli. Vedi screenshot:
3. Copia e incolla sotto il 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 semplicemente inserire del testo in ogni riga. Che ne dici di inserire il testo in ogni riga n in Excel? In questa sezione ti mostreremo il file Inserisci righe di titoli utilità di Kutools for Excel. Con questa utility, inserire il testo in ogni riga n non sarà più un problema.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Clic Kutools > inserire > Inserisci righe di titoli per abilitare questa utilità.
2. Nel Inserisci righe di titoli finestra di dialogo, è necessario:
Ora il testo specificato viene inserito in ogni riga n nell'intervallo selezionato.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!