Como adicionar texto no meio das células selecionadas no Excel?
Adicionar texto no meio das células selecionadas no Excel é uma técnica útil para organizar e apresentar dados de forma mais clara. Este guia oferece instruções passo a passo e diretas sobre como inserir novo texto no conteúdo existente das células, utilizando as funções e funcionalidades integradas do Excel.
Adicionar Texto no meio das Fórmula selecionadas
Nesta secção, apresentamos a fórmula para adicionar texto no meio das células selecionadas. Siga os passos abaixo.
1. Este método requer uma coluna auxiliar. Selecione a célula em branco adjacente aos dados originais — neste caso, a célula B2.
2. Copie e cole a fórmula =ESQUERDA(A2;1) & «D» & EXT.TEXTO(A2;2;100) na Barra de Fórmulas e, em seguida, prima a tecla Enter. Veja a imagem:
Notas:
- 1). Na fórmula, o número 1 indica que o texto será inserido após o primeiro carácter da célula.
- 2). Os números 2 e 100 indicam que os caracteres da segunda à centésima posição da célula original serão adicionados após o novo texto inserido.
- 3). Se pretender adicionar texto após o segundo carácter, altere o número 1 para 2 e o 2 para 3 na fórmula.
- 4). E o carácter «D» é o texto que será adicionado à célula. Ajuste-o conforme as suas necessidades.
3. Selecione a célula B2 e arraste a Alça de Preenchimento até à célula onde pretende aplicar esta fórmula. Verá o texto automaticamente inserido no meio das células em toda a lista.
Dicas: Além da fórmula acima, pode também utilizar esta fórmula =REPLACE(A2,2,0,«D») (o número 2 indica a posição onde pretende inserir o texto e a letra D corresponde ao texto que deseja adicionar; pode ajustar ambos conforme necessário). Depois, prima Enter para obter o resultado.
Adicionar Texto no meio das células selecionadas com Kutools para Excel
Temos de admitir que os dois métodos anteriores são inconvenientes. Aqui, apresentamos a utilidade Adicionar Texto do Kutools para Excel, com a qual pode indicar facilmente a posição intermédia da lista e adicionar, de forma simultânea, o texto pretendido nessa posição em toda a lista.
1. Selecione a lista em que pretende adicionar texto no meio das células e, em seguida, clique em Kutools > Texto > Adicionar Texto. Veja a imagem:
2. Na caixa de diálogo Adicionar Texto, introduza o texto que pretende adicionar às células na caixa Texto, especifique a posição onde deseja inserir o texto ao marcar a opção Especificar (aqui introduzi o número 1) e, em seguida, clique no botão OK. (Pode pré-visualizar imediatamente o resultado na caixa à direita)
Nota: Para adicionar texto em várias posições das células selecionadas de uma só vez, basta indicar as posições separadas por vírgulas na caixa Especificar. Veja a imagem:
Agora, o texto especificado foi inserido após a primeira letra da lista selecionada.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Adicionar Texto no meio das células selecionadas com código VBA
Além disso, pode adicionar texto no meio das células selecionadas utilizando código VBA.
1. Prima Alt+F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e, em seguida, copie e cole o código VBA abaixo no editor de código.
Código VBA: Adicionar Texto a uma lista de dados após o primeiro carácter
Sub AddString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
Next
End Sub3. Prima a tecla F5 para executar o código e, na caixa de diálogo Kutools for Excel que surge, selecione o intervalo em que pretende adicionar texto e, finalmente, clique no botão OK.
Agora, o texto especificado foi inserido após o primeiro caractere das células selecionadas.
Nota: No código acima, insere um valor específico após o primeiro carácter da célula. Pode alterar os números 1 e 2 para 2 e 3 se quiser adicionar o texto após o segundo carácter neste script VBA.Esquerda(Rng.Value, 1) & «D» & VBA.ExtTexto(Rng.Value, 2, VBA.Compr(Rng.Value) - 1), sendo a letra D o novo texto que pretende inserir.
Este guia apresenta-lhe três métodos para alcançar este objetivo: utilizar fórmulas do Excel, recorrer ao suplemento Kutools para Excel ou aplicar código VBA. Cada abordagem permite inserir Texto Novo no conteúdo existente das células, adaptando-se a diferentes níveis de proficiência no Excel e às necessidades dos utilizadores. Se quiser explorar ainda mais dicas e truques do Excel, o nosso site oferece milhares de tutoriais.Clique aqui para aceder a eles.
Artigo relacionado:.
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