Как сделать дубли строк в Excel одна под другой?

Question

[Арсен Асатрян]

Привет, ребята.

Как сделать дубли строк в excel одна под другой? (строк около 1000 штук)
Есть файл excel в нем около 1000 строк.
на каждой строке - ссылка.

сейчас в файле:

ссылка 1 (1 строка)

ссылка 2 (2 строка)

ссылка 3 (3 строка) и так далее. .

нужно чтобы стало:

ссылка 1 (1 строка)

ссылка 1 (2 строка)

ссылка 2 (3 строка)

ссылка 2 (4 строка)

ссылка 3 (5 строка)

и так далее.. .

как такое сделать? может есть какие-то другие варианты, кроме excel? Очень этим поможете, пожалуйста! Очень большой объем данных, а вручную это сложно делать...

Comments

[Арсен Асатрян]

и не только на +1 дубль, а, к примеру, на +10 сразу каждой уникальной ссылки

Answer 1

[idShura]

На VBA легко сделать. Давай пример файла и я помогу написать

upd.
Пример

На страницу "duplicates" будут скопированы дубликаты.

Private Sub CommandButton1_Click()

duplicateCoount = 2 ' Количество дубликатов

i = 1

lastRow = 1

Do While Sheets("Sheet1").Cells(i, 1) <> ""
    
    Sheets("Sheet1").Rows(i).Copy
    
    j = 1
    
    Do While j <= duplicateCoount
        Sheets("duplicates").Rows(lastRow).PasteSpecial xlPasteValues
        lastRow = lastRow + 1
        j = j + 1
    Loop
    
    i = i + 1

Loop

End Sub

Comments

[Арсен Асатрян]

idShura Спасибо тебе)

https://yadi.sk/i/3e_X__4gTNXQEA - держи

[Арсен Асатрян]

idShura тут для примера 15 сделал, думаю, будет тоже самое))

[Арсен Асатрян]

idShura не сказал, что есть еще и другие столбцы. Надеюсь, там это никак не помешает (и их дубли тоже бы размножить вместе с ссылками)

[idShura]

Арсен Асатрян, не проблема

[Арсен Асатрян]

idShura Спасибо большое! Такую сложную разработку вряд ли когда-нибудь придумал бы))