Este tutorial demonstrará como usar as funções Trim, LTrim e RTrim VBA, bem como a função de planilha Trim.
Função Trim
A função VBA Trim remove (“apara”) espaços errôneos antes e depois das strings de texto.
Cortar espaços antes e depois do texto
A função VBA Trim removerá os espaços antes e depois das strings de texto:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"End Sub |
Cortar vários espaços antes e depois do texto
Isso inclui cortar vários espaços antes e depois do texto:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"End Sub |
VBA Trim NÃO removerá vários espaços entre palavras
No entanto, a função Trim não removerá vários espaços entre as palavras:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"End Sub |
Cortar como uma função de planilha
No entanto, a função de planilha Cortar do Excel pode ser usada para remover espaços extras entre palavras:
Use a função de corte da planilha no VBA
Para usar a Função de corte do Excel no VBA, chame-a usando WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"End Sub |
Cansado de procurar exemplos de código VBA? Experimente o AutoMacro!
Diferença entre WorksheetFunction.Trim e VBA Trim
Isso demonstrará as diferenças entre Trim e WorksheetFunction.Trim:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"Msgbox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"Msgbox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"Msgbox WorksheetFunction.Trim ("Eu amo o Excel")'O resultado é: "Eu amo o excel"Msgbox Trim ("Eu amo excel")'O resultado é: "Eu amo o excel"End Sub |
Use o VBA para adicionar função de ajuste em um intervalo
A função Trim Worksheet pode ser adicionada em um Range usando a propriedade .Formula:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"End Sub |
Função LTrim
A função LTrim remove espaços apenas do lado esquerdo da palavra:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox LTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox LTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox LTrim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox LTrim ("Eu amo excel")'O resultado é: "Eu amo o excel"MsgBox LTrim ("Eu amo excel")'O resultado é: "Eu amo o excel"End Sub |
Função RTrim
A função RTrim remove espaços apenas do lado direito da palavra:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"MsgBox RTrim ("Eu amo o excel")'O resultado é: "Eu amo o excel"End Sub |
Trim, Ltrim e Rtrim não removem os espaços entre as palavras.
Remova todos os espaços do texto
Cortar removerá apenas os espaços extras entre as palavras, mas para remover todos os espaços em uma string de texto, você pode usar a Função Substituir:
| 1234 | Sub ReplaceExample ()MsgBox Replace ("Eu amo excel", "", "")'O resultado é: "Iloveexcel"End Sub |
