Como inserir / adicionar espaço após cada x caracteres nas células?
Se você tiver várias sequências de texto em uma lista de planilha, agora, você deseja inserir um espaço após cada 3 ou x caracteres nas células, como mostrado a seguir. Como você poderia resolver esse problema no Excel de forma rápida e fácil?
Inserir / adicionar espaço após cada x caracteres em células com código VBA Insira / adicione espaço após cada x caracteres nas células com o Kutools para Excel |
Inserir / adicionar espaço após cada x caracteres em células com código VBA
Aplicando o seguinte código VBA, você pode inserir rapidamente o espaço após cada n caracteres para várias células de uma vez, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Então clique inserção > Móduloe cole o seguinte código no Módulo janela.
Código VBA: insira um espaço após cada x caracteres:
Sub addspace()
'updateby Extendoffice
Dim i As Long
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xStr As String
Dim xUpdate As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xStr = xCell.Text
xTxt = ""
For i = 1 To Len(xStr) Step 4
If xTxt = "" Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
End If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Então aperte F5 para executar este código e, na caixa de prompt, selecione as células nas quais deseja inserir espaço, veja a captura de tela:
4. E, em seguida, clique em OK botão, e os espaços foram inseridos no conteúdo da célula a cada quatro caracteres, consulte as capturas de tela:
Note: No código acima, você pode alterar o número 4 para outro número para inserir espaço depois. E também você pode alterar o espaço delimitador para outros delimitadores nesta regra xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) do código acima.
Insira / adicione espaço após cada x caracteres nas células com o Kutools para Excel
Kutools for Excel'S Adicionar texto recurso também pode ajudá-lo a resolver esse problema de forma rápida e fácil.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora! )
1. Selecione as sequências de texto nas quais deseja inserir espaço.
2. Então clique Kutools > Texto > Adicionar texto, veja a captura de tela:
3. No Adicionar texto caixa de diálogo, pressione a barra de espaço uma vez no Texto caixa e selecione a Especificar opção sob o Posiçãoe digite as posições em que deseja inserir o espaço, consulte a captura de tela:
4. E, em seguida, clique em Ok or Inscreva-se botão, você obterá o resultado de que os espaços foram inseridos após cada quatro caracteres conforme necessário.
Tips: O número de posições na caixa de texto Especificar deve ser separado por vírgulas.
Baixe grátis o Kutools para Excel agora!
Artigo relacionado:
Como adicionar / inserir certos caracteres a cada x caracteres nas células?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!