Como adicionar texto no meio das células selecionadas no Excel?

Adicionar texto ao meio das células selecionadas no Excel é uma técnica útil para organizar e apresentar dados. Este guia fornecerá instruções claras e passo a passo sobre como inserir novo texto dentro do conteúdo existente de células usando as funções e recursos internos do Excel.
Adicionar texto no meio das células selecionadas com fórmula
Nesta seção, forneceremos a fórmula para adicionar texto no meio das células selecionadas. Por favor, siga os passos abaixo.
1. Esse método deve ser feito com uma coluna auxiliar. Selecione a célula em branco adjacente aos dados originais; aqui, eu seleciono 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, pressione a tecla Enter. Veja a captura de tela:
Notas:
- 1). Na fórmula, o número 1 significa que o texto será adicionado após o primeiro caractere da célula.
- 2). Os números 2 e 100 indicam que os caracteres do segundo ao centésimo da célula original serão adicionados após o novo texto inserido.
- 3). Se você deseja adicionar texto após o segundo caractere, altere o número 1 para 2 e 2 para 3 na fórmula.
- 4). E o caractere “D” é o texto que você irá adicionar à célula. Altere-o conforme suas necessidades.
3. Selecione a célula B2, arraste a Alça de Preenchimento até a célula que você deseja cobrir com essa fórmula. Você pode ver que o texto foi adicionado no meio das células em toda a lista.
Dicas: Além da fórmula acima, você também pode aplicar esta fórmula =SUBSTITUIR(A2;2;0;"D") (o número 2 indica a posição onde você deseja inserir o texto, e a letra D refere-se ao texto que você precisa adicionar, você pode alterá-los conforme necessário), depois pressione a tecla Enter para obter o resultado.
Adicionar texto no meio das células selecionadas com Kutools para Excel
Devemos admitir que os dois métodos acima são inconvenientes para nós. Aqui, mostrarei a você a ferramenta Adicionar Texto do Kutools para Excel, com esta utilidade, você pode facilmente especificar a posição central da lista e, em seguida, adicionar um determinado texto a essa posição de toda a lista ao mesmo tempo.
1. Selecione a lista na qual deseja adicionar texto no meio das células e, em seguida, clique em Kutools > Texto > Adicionar Texto. Veja a captura de tela:
2. Na caixa de diálogo Adicionar Texto, insira o texto que deseja adicionar às células na caixa de texto, especifique a posição onde deseja adicionar o texto marcando a opção Especificar (aqui, insiro o número 1), depois clique no botão OK. (Você pode visualizar instantaneamente o resultado da adição na caixa à direita)
Nota: Para adicionar texto em várias posições da célula selecionada de uma só vez, você pode especificar as posições separadas por vírgulas na caixa Especificar. Veja a captura de tela:
Agora, o texto especificado foi adicionado após a primeira letra na lista selecionada.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Adicionar texto no meio das células selecionadas com código VBA
Além disso, você pode adicionar texto no meio das células selecionadas com código VBA.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo. 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 caractere
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 Sub
3. Pressione a tecla F5 para executar o código e, na caixa de diálogo KutoolsforExcel que aparece, selecione o intervalo ao qual deseja adicionar texto e, finalmente, clique no botão OK.
Agora, o texto especificado foi adicionado após o primeiro caractere das células selecionadas.
Nota: No código acima, você inserirá um valor específico após o primeiro caractere dentro da célula; você pode alterar os números 1 e 2 para 2 e 3 se estiver adicionando o texto após o segundo caractere neste script VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1), e a letra D é o novo texto que você deseja inserir.
Este guia apresenta três métodos para alcançar isso: usando fórmulas do Excel, aproveitando o complemento Kutools para Excel e aplicando código VBA. Cada método oferece uma abordagem única para inserir novo texto dentro do conteúdo existente de células, atendendo a diferentes níveis de proficiência no Excel e às necessidades dos usuários. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais. Por favor, clique aqui para acessá-los.
Artigo relacionado:.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.





- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins