lcalegari

Boa tarde. Estou precisando de uma ajuda. Eu receb um arquivo no excel e preciso limpar certos caracteres, assim como ",",".","-" e etc. Até ai eu consegui fazer numa boa. Mas meu problema veio na hora de limpar tabulação "" que tem um ponnto de interrogação no centro. Eu fiz algo assim: Option Explicit Public Sub LimpaTab() Dim varColuna As Integer Dim varLinha As Integer Dim varIndice As Integer varColuna = 1 Do While Cells(1, varColuna) <> "" varColuna = varColuna + 1 Loop varColuna = varColuna - 1 varLinha = 2 Do While Range("A" & varLinha) <> "" For varIndice = 1 To varColuna Cells(varLinha, varIndice).Select On Error Resume Next Cells(varLinha, varIndice) = Replace(Replace(Replace(Replace(Replace(Cells(varLinha, varIndice), vbTab, " "), vbCrLf, " "), Chr(10), " "), Chr(13), ""), "", "") Next varIndice DoEvents varLinha = varLinha + 1 Loop MsgBox "Finalizado", vbInformation End Sub Mas não adianta. Vocês podem me ajudar por favor. Obrigado