Leonardo Torres

Consegui resolver meu problema usando esta função. Ela insere o dado da coluna um pela quantidade da coluna 2. Sub Funcao() Dim l As Long Dim cont As Long Dim sngValor As Single Dim sngNum As Long Dim sngCaixa As Long l = 2 cont = 2 sngNum = 0 sngValor = 0 sngCaixa = 0 Do While Cells(l, 1) <> “” sngValor = Cells(l, "B") sngNum = Cells(l, "A") sngCaixa = Cells(l, "C") cont = 2 Do While cont <= sngValor If Cells(l - 1, 1) <> “” Then Cells(l, 1).EntireRow.Insert cont = cont + 1 Cells(l, 1) = sngNum Cells(l, 2) = sngValor Cells(l, 3) = sngCaixa End If Loop l = l + sngValor Loop End Sub

Olá pessoal tenho um seguinte problema e preciso urgentemente de uma ajuda no excel, seguinte tenho uma planilha com duas coluna A(Código) e B(Quantidade), preciso replicar o código na quantidade que ele possui. Exemplo tenho código 2345678 com quantidade 15 então tenho que ter 15 linhas com o código 2345678, todos o códigos são diferente e as quantidade também. Alguma forma de fazer isso para o Excel? Obrigado.