Create Rows based on cell value

Hi,

Kindly help for formulas to create rows based on cell value.

Thank you!

Result in Column C

Sub test()
lr = Range("A" & Rows.Count).End(xlUp).Row
Range("C1") = "all id"
For x = 2 To lr
    For i = 1 To Range("B" & x)
        Range("C" & Rows.Count).End(xlUp).Offset(1) = Range("A" & x) & "-" & i
    Next
Next
End Sub

Kind regards
Leo

Thanks Leo, but the output should be whats indicated on column E and column F, the only given data is column A B C.

In E2

=LEFT(C2,SEARCH("_",C2,1)-1)

In F2

=C2

and copy down

Kind regards
Leo

Thanks LeoTaxi! the only problem i have now is when the column C id is not the same as column A

Or

Sub test()
lr = Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To lr
    For i = 1 To Range("B" & x)
        Range("E" & Rows.Count).End(xlUp).Offset(1) = Range("A" & x)
        Range("F" & Rows.Count).End(xlUp).Offset(1) = Range("A" & x) & "-" & i
    Next
Next
End Sub

Cheers
Leo

Thanks guys both are working.