Como remover espaços entre palavras usando vba xcel

Question

Eu apreciaria muito alguma ajuda em descobrir como remover os espaços entre as palavras. Eu só precisarei mirar o que quer que esteja na célula "A1", por exemplo, se eu tiver "Next Ex" na célula, eu quero que a macro mude para "NextEx". Eu vou rodar isso em várias planilhas, é por isso que uma fórmula não seria minha melhor opção.

    

Answer 1

Considere:

Sub NoSpace()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Range("A1").Replace what:=" ", replacement:=""
    Next sh
End Sub

    

Answer 2

VBA:

Dim cellText As String
cellText = [Get Cell Text From Worksheet]
cellText = Replace(cellText," ", "")

Fórmula:

=SUBSTITUTE(A1," ","")

    

Answer 3

VBA:

Join(Split(Range("A1").Value, " "), "")

Split ( doc ) string em array usando "" (espaço) como delimitador; Join ( doc ) array em string usando "" ( string vazia) como delimitador.