Espaços

‘Retira os espaços extras
Dim frase As String
frase= “ Vou testar o código  “
Trim(frase) ‘Ao exibir irá mostrar: ”Vou testar o código“

‘Obs.: Ltrim e RTrim, também retiram espaços extras, entretanto o primeiro retira esquerda e o segundo da direita
‘—————————————————————————————

‘Inseri 10 espaços entre as palavras
Dim Frase
Frase = “Relatório de ” & Space(10) & “ Contabilidade”
MsgBox Frase

Retirar Espaço

Você já deve ter passado por isso,  pegou palavras e frases de uma planilha e percebeu que na variável trouxe espaço no início da frase ou no final da palavra e etc.

Um código bem simples para retirar esses espaços é usar o TRIM:

varCelula = cells(1,1).value
variável = TRIM(varCelula)

ou

variável = TRIM(cells(1,1).value)