FUNÇÃO TRIM NO VBA

Question

Boa noite. Tentei eliminar os espaços em branco de células em uma planilha, mas não obtive sucesso. Segue código abaixo:

Private Sub cmdEliminaEspacos_Click()
Dim ultlinha As Long
Dim texto As String
Application.ScreenUpdating = False
ultlinha = Cells.Find("*", , xlFormulas, xlPart, xlByRows, xlPrevious).Row
For i = 2 To ultlinha
texto = Trim(Range(("H") & i).Value)
Cells(i, 14).Value = texto
texto = Trim(Range(("J") & i).Value)
Cells(i, 15).Value = texto
Next
Range(Cells(i, 8), Cells(ultlinha, 8)).Clear
Range(Cells(i, 10), Cells(ultlinha, 10)).Clear
Range(Cells(i, 14), Cells(ultlinha, 14)).Copy
ActiveSheet.Range(Cells(i, 8)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range(Cells(i, 15), Cells(ultlinha, 15)).Copy
ActiveSheet.Range(Cells(i, 10)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range(Cells(i, 14), Cells(ultlinha, 14)).Clear
ActiveSheet.Range(Cells(i, 14), Cells(ultlinha, 15)).Clear
Application.ScreenUpdating = True
End Sub

As células estão formatadas como String (tanto as de partida, como as de chegada), mas, ainda assim, os espaços não são eliminados. Alguém pode me iluminar ? obrigado.

Tentei ainda com a função RTrim. também sem sucesso.

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá Luciano Bonavides

Obrigado por postar na Comunidade Microsoft.

É muito importante fazer isso para que você possa voltar ao que está fazendo. No entanto, este problema está fora do alcance da comunidade e, uma vez que você entrou em contato conosco primeiro, vamos garantir que vale a pena o seu tempo, apontando-o na direção certa para obter a solução que você deseja. Suporte da Comunidade do Microsoft 365 | Gostaria de fornecer este link para enviar um problema para as Perguntas e Respostas do Microsoft Learn Office. Garantimos que você obterá informações mais relevantes e a melhor solução para suas preocupações.

Visite este site: Microsoft Microsoft 365 - Microsoft Q&A

Entre com sua conta da Microsoft

Em seguida, faça perguntas.

(Este link está em inglês e pode exigir tradução para esclarecimento.)

Manterei o tópico aberto caso alguns de nossos incríveis MVPs e especialistas em Excel queiram participar ou responder às suas perguntas.

Sinceramente

Juhn Jac

Moderador do Fórum Microsoft