VBA

Question

Boa tarde,

Pessoal pesquisei muito e acho que não é tão simples assim, queria uma função em VB que lesse a linha e extraísse os valores ente aspas duplas "".  Eu fiz com split, mas queria resultado na mesma linha ou na coluna do lado.

Answer 1

O que eu fiz até agora:

Dim x As Variant

x = Split(Range("a:1").Value, """")

Range("a1").Resize(UBound(x) - LBound(x)  + 1).Value = Application.Transpose(x)

End Sub

Answer 2

Só que eu queria executar em toda a coluna A