Como inserir espaços antes de letras maiúsculas no Excel?
Gerenciar a formatação de dados no Excel é um aspecto crucial para garantir que suas planilhas sejam claras e profissionais. Uma necessidade comum de formatação é inserir espaços antes de letras maiúsculas em cadeias de texto, o que muitas vezes é necessário ao lidar com dados concatenados ou formatados incorretamente. Este guia fornece vários métodos eficazes para alcançar isso.
Inserir espaços antes de cada letra maiúscula no Excel
Inserir espaços antes de cada letra maiúscula com uma fórmula (Excel 2019 e versões posteriores)
As fórmulas do Excel oferecem uma maneira flexível de inserir espaços antes de letras maiúsculas. Esse método é ideal para usuários que preferem uma abordagem não programática.
Copie e cole a seguinte fórmula em uma célula em branco e pressione a tecla "Enter" (Excel 365 ou 2021) para obter o primeiro resultado. (Pressione "Ctrl" + "Shift" + "Enter" para aplicá-la como uma fórmula de matriz se estiver usando o Excel 2019)
=TRIM(LEFT(A2,1) & TEXTJOIN("", TRUE, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))>=65, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))<=90, " "&MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1)), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))))
- "ESQUERDA(A2,1)": Recupera o primeiro caractere da sequência como está.
- "INDIRETO("2:" & COMPRIMENTO(A2))": Cria um intervalo de números do segundo caractere até o último caractere.
- "EXT.TEXTO(A2, LIN(...), 1)": Extrai cada caractere um por um a partir do segundo caractere.
- "CÓDIGO(...)": Verifica o valor ASCII do caractere para determinar se é uma letra maiúscula (entre 65 e 90).
- "UNIRTEXTO("", VERDADEIRO, ...)": Combina os caracteres em uma única sequência, inserindo um espaço antes de qualquer letra maiúscula.
- "ARRUMAR(...)": Remove quaisquer espaços extras no início ou no final da sequência resultante.
Inserir espaços antes de cada letra maiúscula com Kutools para Excel
O "Kutools para Excel" oferece uma solução rápida e sem esforço para inserir espaços antes de cada letra maiúscula em seus dados. Com seu recurso intuitivo "Adicionar Texto", você pode automatizar essa tarefa em poucos cliques - sem fórmulas complexas ou codificação necessária!
1. Selecione o intervalo onde você deseja inserir espaço antes das letras maiúsculas e clique em "Kutools" > "Texto" > "Adicionar Texto". Veja a captura de tela:
2. Na caixa de diálogo "Adicionar Texto" que se abre, digite um espaço na caixa "Texto", marque a opção "Avançado" e selecione "Antes de letras maiúsculas" na lista suspensa.
3. Clique no botão "OK" para inserir espaço antes de cada letra maiúscula, conforme mostrado na captura de tela a seguir:
Inserir espaços antes de cada letra maiúscula com Função Definida pelo Usuário
Para usuários avançados que precisam de mais flexibilidade, uma Função Definida pelo Usuário (UDF) pode ser criada para inserir espaços antes de letras maiúsculas.
1. Ative sua planilha que contém as sequências de texto nas quais você deseja adicionar espaços.
2. Mantenha pressionadas as teclas "ALT" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
3. Clique em "Inserir" > "Módulo" e cole o seguinte código na janela "Módulo".
Código VBA: Inserir espaços antes de letras maiúsculas
Function AddSpaces(pValue As String) As String
'Updateby Extendoffice
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddSpaces = xOut
End Function
4. Em seguida, salve e feche este código, volte para a planilha e insira a fórmula abaixo em uma célula em branco ao lado de seus dados. Arraste a fórmula para preencher outras células e você obterá os espaços inseridos antes de cada letra maiúscula.
=addspaces(A2)
Inserir espaços antes de cada letra maiúscula com código VBA
Nesta seção, vamos guiá-lo sobre como usar o código VBA para inserir espaços antes de cada letra maiúscula no Excel. Seja você um iniciante ou um usuário avançado, este guia fornecerá as ferramentas e o conhecimento para realizar esta tarefa de forma eficiente.
1. Mantenha pressionadas as teclas "ALT" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
2. Clique em "Inserir" > "Módulo" e cole o seguinte código na janela "Módulo".
Código VBA: Inserir espaços antes de letras maiúsculas
Sub AddSpacesRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
xValue = Rng.Value
xOut = VBA.Left(xValue, 1)
For i = 2 To VBA.Len(xValue)
xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(xValue, i, 1)
Else
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub
3. Em seguida, pressione a tecla "F5" para executar este código, uma caixa de prompt será exibida para permitir que você selecione um intervalo de dados que deseja usar.
4. E então clique em "OK" para fechar esta caixa de prompt, os espaços serão inseridos antes das letras maiúsculas imediatamente, veja a captura de tela:
Inserir espaços antes de cada letra maiúscula no Excel pode ser alcançado por meio de vários métodos, cada um com suas próprias vantagens. Seguindo as etapas e melhores práticas descritas neste guia, você pode otimizar seu fluxo de trabalho e realizar essa tarefa com facilidade e eficiência. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais.
Artigo relacionado:
Como adicionar espaços após vírgulas no Excel?
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