Excel VBA EXCEL - Replicar Linhas através de um parâmetro

[Leonardo Torres 0]

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.

Editado 18 de abril por DiF

[Patropi 1.706]

Boa noite @Leonardo Torres

 

Para facilitar anexe uma planilha de exemplo com poucos dados, demonstrando manualmente o resultado esperado.

 

[]s

[Leonardo Torres Autor do tópico 0]

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
 

Editado 19 de abril por Leonardo Torres