A função VBA TRIM retorna uma sequência de caracteres após remover espaços à esquerda e à direita da sequência.
Trim(texto)
Vamos remover espaços extras do início e do final da linha:
Sub TrimExample1() MsgBox Trim("test") 'Retorna: "test" MsgBox Trim(" test") 'Retorna: "test" MsgBox Trim("test ") 'Retorna: "test" MsgBox Trim(" test ") 'Retorna: "test" MsgBox Trim(" test test ") 'Retorna: "test test" MsgBox Trim(" ") 'Retorna: "" End Sub
Removendo espaços extras dentro de uma linha:
Sub TrimExample2() MsgBox WorksheetFunction.TRIM(" test test ") 'Retorna: "test test" End Sub