Prezados, boa tarde.
Eu tenho uma tabela que encontra-se assim:
UNID NOTAS_FISCAIS
401
401
401
401
114 5683;5685
102 34253
114 5705;5715
145 84153;84154
Porém, eu preciso automatiza-la para ficar que nem abaixo (Repetir o ID e remover o ponto e vírgula).. Como eu consigo fazer isso?
ID NOTAS_FISCAIS
401
401
401
401
114 5683
114 5685
102 34253
114 5705
114 5715
145 84153
145 84154
Olá, Paulo. Experimente o código abaixo
Sub Tratamento() i = 2 While Plan1.Cells(i, 1) <> "" NF = "" For j = 1 To Len(Plan1.Cells(i, 1)) If Mid(Plan1.Cells(i, 1), j, 1) <> ";" Then NF = NF & Mid(Plan1.Cells(i, 1), j, 1) Else l = 2 While Plan2.Cells(l, 1) <> "" l = l + 1 Wend Plan2.Cells(l, 1) = NF
NF = Left(NF, 4) End If Next l = 2 While Plan2.Cells(l, 1) <> "" l = l + 1 Wend Plan2.Cells(l, 1) = NF i = i + 1 Wend End Sub