Ocasionalmente, os dados na pasta de trabalho contêm espaços adicionais (espaços) que podem interferir na análise de dados e corromper fórmulas. Aqui está uma macro que removerá todos os espaços de um intervalo pré-selecionado de células:
Sub TrimTheSpaces()
'Declara suas variáveis
Dim MyRange As Range
Dim MyCell As Range
'Salve a pasta de trabalho antes de alterar as células
Select Case MsgBox( "Não é possível desfazer esta ação. " & _
"Salvar a pasta de trabalho primeiro?" , vbYesNoCancel)
Case Is = vbSim
Esta pasta de trabalho. Salvar
Case Is = vbCancel
Exit Sub
End Selecione
'Definir o intervalo de destino.
Set MyRange = Selection
'Começa a percorrer o intervalo.
Para cada MyCell no MyRange
'Corte os espaços.
Se não estiver vazio (MyCell) , então
MinhaCélula = Trim(MinhaCélula)
End If
'Obtém a próxima célula do intervalo
Next MyCell
End Sub
Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário