Повторення списку комірок у X більше разів

У мене є список імен у excel,

Наприклад

Lizzy
William
Kate
Charles

Я хотів би використовувати якийсь код VBA (або інший метод, щоб повторити це 12 разів).

Я буду робити це знову і знову, і іноді мій список імен може містити менше або більше.

Хтось отримав для мене будь-який напрямок, оскільки я дійсно застряг.

Я б хотів отримати результат у цьому конкретному випадку,

Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles
Lizzy
William
Kate
Charles

Що я спробував:

Я знайшов метод за допомогою формул, див. Https://www.excel-bytes.com/how-to-repeat-a-range-of-items-multiple-times-in-excel/

Однак проблема в цьому полягає в індексації початкового списку, оскільки мій список зміниться. Посилання на питання затримано: Скопіюйте та вставте список імен у excel 12 разів

Спочатку це запитання було задано іншим користувачем, і він зупинився, тому я не міг відповісти. У мене є рішення, тому я переосмислив питання, і я надам відповідь і позначаю початкового запитувача.

З даними у стовпці А , у В1 введіть:

=IF(ROW()>COUNTA(A:A)*12,"",INDEX(A:A,MOD(ROW()-1,COUNTA(A:A))+1))

і скопіюйте вниз:

Стовпець B автоматично регулюється, якщо стовпець A змінюється.

Для будь-якого списку імен у першому стовпчику електронної таблиці excel цей код VBA повториться на основі запису в комірці С2, тому, якщо ви хочете, щоб список повторювався 10 разів, а в початковому списку було 10 імен, вставте 110 в оригінальному списку.

    Option Explicit

Sub LRow()

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")  '<=== Edit Sheet Name
    Dim LRow As Long

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

    ws.Range("A1:A" & LRow).Select

End Sub

Це перший, але потрібний вам код, і він по суті виділяє що-небудь у стовпці "А".

Друга частина коду перетягує список, щоб він повторився.

Додайте їх обох і запустіть другий як макрос.

Я сподіваюся, що це допомагає.

    Sub Master()
'
' Master Macro
'

'
    LRow
    Selection.AutoFill Destination:=Range("A1:A" & Range("C2").Value), Type:=xlFillDefault
    Range("A1:A" & Range("C2").Value).Select
    Range("B1").Select
End Sub