Função Excel VBA TRIM
VBA TRIM é categorizado sob as funções de string e texto, esta função é uma função de planilha em VBA e semelhante à referência da planilha, esta função é usada para cortar ou remover os espaços indesejados de uma string, leva um único argumento que é uma string de entrada e retorna uma saída como string.
Existem várias situações em que baixamos os dados de servidores online, e nos deparamos com uma situação de dados desorganizados e espaços indesejados na célula. Lidar com espaços desnecessários é muito doloroso de se trabalhar. Em funções regulares de planilha, temos uma função chamada TRIM no Excel para eliminar “Espaços à esquerda, Espaços à direita e espaço intermediário”. No VBA, também temos uma função chamada TRIM, que funciona exatamente da mesma forma que a função do Excel, mas há apenas uma pequena diferença. Veremos isso neste artigo um pouco mais tarde.
O que a função Trim faz?
TRIM é uma função de string que remove espaços no Excel da célula selecionada. Nos espaços, temos 3 tipos “Espaços principais, Espaços finais e espaços intermediários”.
Espaço inicial não é nada, mas antes que qualquer valor comece na célula, se houver algum espaço, ele será chamado de Espaço inicial.
O espaço à direita nada mais é do que após o final do valor na célula, se houver algum espaço, ele é chamado de espaço à direita.
O espaço intermediário não é nada após o final de cada palavra; idealmente, devemos ter um caractere de espaço. Qualquer coisa mais do que um caractere de espaço é chamado de espaço intermediário.
Para superar todos esses tipos de problemas, temos uma função chamada TRIM.
Sintaxe
String: Qual é a string ou valor que você deseja cortar? Pode ser uma referência de célula, bem como um fornecimento direto de valor para a fórmula.
Exemplos
Exemplo 1
Agora veremos como remover espaços à esquerda no Excel usando a função TRIM. Siga as etapas abaixo
Etapa 1: Crie um nome de macro e declare uma variável como String.
Código:
Sub Trim_Example1 () Dim k As String End Sub
Passo 2: Agora, para esta variável declarada, atribua um valor usando o TRIM.
Código:
Sub Trim_Example1 () Dim k As String k = Trim (End Sub
Etapa 3: para este tipo de string, a palavra entre aspas duplas como “Bem-vindo ao VBA”.
Código:
Sub Trim_Example1 () Dim k As String k = Trim ("Bem-vindo ao VBA") End Sub
Passo 4: Agora mostre o resultado desta variável na caixa de mensagem.
Código:
Sub Trim_Example1 () Dim k As String k = Trim ("Bem-vindo ao VBA") MsgBox k End Sub
Etapa 5: execute este código usando a tecla F5 ou execute manualmente. Devemos obter uma string correta na caixa de mensagem.
Resultado:
Portanto, a função TRIM removeu todos os espaços iniciais que inserimos no valor da string. Agora, o resultado é uma frase correta, ou seja, "Bem-vindo ao VBA".
Exemplo # 2
Agora dê uma olhada em mais um exemplo para remover espaços à direita. Pegue a mesma palavra, mas desta vez, insira espaços à direita.
“Bem-vindo ao VBA. “
Código:
Sub Trim_Example2 () Dim k As String k = Trim ("Bem-vindo ao VBA") MsgBox k End Sub
Executar este código manualmente ou por meio da função Trim da tecla F5 também remove espaços à direita.
Resultado:
Exemplo # 3 - Limpe os dados nas células
Agora veremos o exemplo prático de limpeza de dados em células do excel. Suponha que você tenha um conjunto de dados como o abaixo em sua planilha do Excel.
When we have more than one cell data, we need to write different codes. Follow the below steps to write code.
Step 1: Declare a variable as “Range.”
Code:
Sub Trim_Example3() Dim MyRange As Range End Sub
Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub
Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.
Step 3: Now, using For Each VBA Loop, apply the TRIM function.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub
Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.
Step 5: Add a word to the inserted rectangular shape as click here to clean the data.
Step 6: Right-click on the rectangular shape and select the assigned macro.
Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.
Step 8: Now select the range where we need to clean the data.
Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.
So we got cleaned value, i.e., after removing leading & trailing spaces.
Difference Between Excel & VBA Trim Function
The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.
In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.
To overcome this problem, we need to use the trim function as a worksheet function in the code.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub
Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.
Things to Remember
- VBA Trim & Worksheet Trim syntax is exactly the same.
- It can only remove leading & trailing spaces, not in-between spaces.
- A função de acabamento do Excel pode remover todos os tipos de espaços.
