Este fórum está sendo desativado

[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.

[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