Formula to Duplicate Entire Rows Based on Cell Value

BlueBenz 

An alternative could be Power Query. In the attached file you can enter data in the blue dynamic tables in sheets "PRIMARY" and "LOOKUP". Then you can click in any cell in the green table and right-click with the mouse. Then select refresh.

LaurieBluegator With MS365, you could try something like this to generate a repeating list of email addresses from column A, based on the values in column B:

=LET(arr, A2:B6,
REDUCE("Email", SEQUENCE(ROWS(arr)), LAMBDA(v,n,
   VSTACK(v, IF(SEQUENCE(INDEX(arr, n, 2)), INDEX(arr, n, 1))))))

Or, if you also need the values in column B to repeat alongside the email addresses, try:

=LET(arr, A2:B6,
REDUCE({"Email","Rows"}, SEQUENCE(ROWS(arr)), LAMBDA(v,n,
   VSTACK(v, IF(SEQUENCE(INDEX(arr, n, 2)), INDEX(arr, n, 0))))))

Adjust the range reference (A2:B6) as needed.

UPDATE: simplified/optimized methods include...

=TOCOL(IFS(B2:B6>=SEQUENCE(, MAX(B2:B6)), A2:A6), 2)

Or, to repeat both columns:

=CHOOSEROWS(A2:B6, TOCOL(IFS(B2:B6>=SEQUENCE(, MAX(B2:B6)), SEQUENCE(ROWS(A2:A6))), 2))

Cheers! 🙂

Trecs 

Sub product()

Dim i As Double
Dim j As Double
Dim z As Double
Dim k As Long
Dim w As Double

Range("K:Q").Clear

k = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To k

j = Cells(i, 4).Value

For z = 2 To j + 1

Cells(z + w, 11).Value = Cells(i, 1).Value
Cells(z + w, 12).Value = Cells(i, 2).Value
Cells(z + w, 13).Value = Cells(i, 3).Value
Cells(z + w, 14).Value = Cells(i, 4).Value
Cells(z + w, 15).Value = Cells(i, 5).Value
Cells(z + w, 16).Value = Cells(i, 6).Value
Cells(z + w, 17).Value = Cells(i, 7).Value

Next z
w = w + z - 2

Next i

End Sub

In the attached file in sheet "Tabelle2" you can click the button in cell I2 to run the macro that returns the result in columns K to Q.

Corder 

The results can appear on a different sheet. Click the button in cell G2 in the attached file and check the results in sheet "Tabelle2". I don't work with Sharepoint and can't answer this question unfortunately.