Boa noite,

Para retirar as aspas duplas de uma célula sugiro utilizar a função "Replace" conforme exemplo:

Sub RetirarAspas()
    For i = 1 To 10
        Cells(i, 3).Value = Replace(Cells(i, 2).Value, Chr(34), "")
    Next
End Sub

Abraço

Ollá tudo bem!

Valeu por responder

Estou tentando adaptar a solução no meu código, porém não conseguindo
è possível adaptar no código abaixo?

Sub IdRegDate()

Dim lin As Long
Dim i As Long
Dim j As Long
Dim ws As Worksheet

Set ws = Sheets("Usuarios")
i = 1
j = ws.Range("A1048576").End(xlUp).Row
lin = 2

Do While i <= j
If Left(ws.Cells(i, 1), 2) = "id" Then
Cells(lin, 1) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 2, 20)
i = i + 1
Cells(lin, 2) = Mid(ws.Cells(i, 1), Application.WorksheetFunction.Search(":", ws.Cells(i, 1), 1) + 2, 30) 'para pegar somente a data, colocar 10 ao final da expressão
i = i + 1
lin = lin + 1
i = i + 1
End If
i = i + 1
Loop

End Sub

Valeu

Sub Clear()
Dim rLocal As Range

'Atribuição das variáveis
  Set rLocal = Application.InputBox(Prompt:="Selecione as células que deseja limpar...", Type:=8)

    rLocal.Replace What:="""", Replacement:=""
End Sub

A mesma instrução do mestre JValq adaptada.

Sub RetirarAspas()
    For i = 1 To 10
        Cells(i, 2).Value = Replace(Cells(i, 2).Value, Chr(34), "")
    Next
End Sub

amigos

muito obrigado mais uma vez

a cada dia aprendo mais!!!

flw