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

• Com uma fórmula (Excel 2019 e versões posteriores)
• Com Kutools para Excel
• Com Função Definida pelo Usuário
• Com código VBA

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))))

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?