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
