Como inserir o mesmo texto em todas as outras linhas no Excel?
Neste artigo, mostramos-lhe como inserir o mesmo texto em todas as outras linhas no Excel. Continue a ler para saber mais.
Inserir o mesmo texto em cada linha com código VBA
Inserir o mesmo texto em cada outra linha com Kutools para Excel
Inserir o mesmo texto em cada linha com código VBA
Imagine que pretende inserir o texto «Name», «Data» e «Score» em cada linha alternada dentro de um intervalo limitado, conforme ilustrado na imagem abaixo. Experimente o seguinte código VBA.
1. Na folha de cálculo, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo. Veja a imagem:
3. Copie e cole o seguinte código VBA 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 SubNotas: No código acima:
Inserir o mesmo texto em cada outra linha com Kutools para Excel
Com o código acima, só pode inserir texto em cada linha. Mas e se quiser inserir texto em cada n-ésima linha no Excel? Nesta secção, apresentamos-lhe a utilidade Inserir Linhas de Título do Kutools para Excel. Com esta funcionalidade, inserir texto em cada n-ésima linha torna-se mais fácil do que nunca!
1. Clique em Kutools > Inserir > Inserir Linhas de Título para ativar esta funcionalidade.
2. Na caixa de diálogo Inserir Linhas de Título, terá de:
Agora, o texto especificado foi inserido em cada n-ésima linha do intervalo selecionado.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos