Como inserir o mesmo texto em todas as outras linhas no Excel?

Neste artigo, mostraremos como inserir o mesmo texto em todas as outras linhas no Excel. Continue lendo para mais detalhes.

Inserir o mesmo texto em cada linha com código VBA
Inserir o mesmo texto em todas as outras linhas com Kutools para Excel

Inserir o mesmo texto em cada linha com código VBA

Suponha que você deseja inserir os textos “Nome”, “Data” e “Pontuação” em todas as outras linhas dentro de um intervalo especificado, conforme mostrado na captura de tela abaixo. Por favor, tente o seguinte código VBA.

1. Na planilha, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Application.

2. Clique em Inserir > Módulo. Veja a captura de tela:

3. Copie e cole o código VBA abaixo no editor de Código.

Código VBA: inserir o mesmo texto em cada linha no 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

Notas: No código acima:

Inserir o mesmo texto em todas as outras linhas com Kutools para Excel

Com o código acima, você pode apenas inserir texto em cada linha. E quanto a inserir texto a cada n linhas no Excel? Nesta seção, mostraremos a você a utilidade Inserir Linhas de Título do Kutools para Excel. Com essa ferramenta, inserir texto a cada n linhas torna-se fácil.

1. Clique em Kutools > Inserir > Inserir Linhas de Título para habilitar esta utilidade.

2. Na caixa de diálogo Inserir Linhas de Título, você precisa:

Agora o texto especificado é inserido em cada n linhas no intervalo selecionado.