Saberexcel - site das macros

Exemplo de macro com função (TRIM) do Aplicativo Microsoft Excel VBA, que igual a função Arrumar() do excel, retira os espaços existentes entre palavras em uma determinada frase, funçao trim() suprime os espaços espacos entre as palavras spaços

VBA - Excel Deleta espaços entre as palavras

'VBA - Excel Deleta espaços entre as palavras
'Esta macro suprime os espaços espacos entre as palavras spaços

Sub Suprime_EspaçosII()
  Limpar_teste
  S = "  Eu    Amo     Jesus  Cristo  ,  Meu Senhor!"
  [C14].Select
 
  MsgBox "Texto original com espaços...: [" & S & " ]"
  MsgBox "Repetindo....[ " & Trim(S) & " ]", vbInformation, "«««:::Excel VBA Estudos®:::»»»"
  MsgBox "Funcao Trim retira espaços...: [ " & Application.WorksheetFunction.Trim(S) & "]", vbInformation, "Excel VBA Estudos®"
  XD = Application.WorksheetFunction.Trim(S)
 
 
  'retornando valores para as células
  [C16].Value = S
  [C19].Value = XD
  [C22].FormulaR1C1 = "=TRIM(R[-3]C)"

End Sub

Sub Limpar_teste()
[C16].Value = ""
[C19].Value = ""
[C22].Value = ""
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel