Página 1 de 1

Extrair vários textos entre aspas e transpor o resultado

Enviado: 12 Jul 2018 às 20:47
por fabioargenton
Boa noite!
Pessoal, preciso de ajuda, tenho numa determinada célula alguns números de NF separados por barra "/", queria descobrir uma forma via macro ou fórmula que eu consiga extrair somente os números de NF e transpor o resultado numa coluna uma abaixo do outra, exemplo anexo.

Exemplo anexo:
https://uploaddeimagens.com.br/images/0 ... 1531438187

Obs.: Dados > Texto para Colunas não resolve, preciso de algo mais automático.

Re: Extrair vários textos entre aspas e transpor o resultado

Enviado: 12 Jul 2018 às 21:13
por osvaldomp
Experimente:
Código: Selecionar todos
Sub TransporNFs()
 Dim x, nf As Range
  If [F2] <> "" Then Range("F2:F" & Cells(Rows.Count, 6).End(3).Row) = ""
  For Each nf In Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)
   x = Split(nf.Value, "/")
   Cells(Rows.Count, 6).End(3)(2).Resize(UBound(x) + 1).Value = Application.Transpose(x)
  Next nf
End Sub