Data v Excelu - přidání řádků dle daných čísel

rýchly nástrel, nestíham

Sub Doplnenie()
    Application.ScreenUpdating = False
    prvy = 2
    For i = 1 To Range("A1").End(xlDown).Row - 1
        For j = prvy To prvy + Range("O" & prvy) - 2
            Rows(j & ":" & j).Select
                Selection.Copy
                Selection.Insert Shift:=xlDown
        Next j
    prvy = prvy + Range("O" & prvy)
    Next i
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

ďalej sa to dá tiež zautomatizovať.
Ak Ti s tým niekto zatiaľ neporadí, zajtra môžem pokračovať

Ahoj, sorry že se do toho pletu. Jelikož nemám noc rád Select (i když v tomto případě je to asi jedno), co takhle?:

Sub Doplnenie()
    Application.ScreenUpdating = False
    prvy = 2
    For i = 1 To Range("A1").End(xlDown).Row - 1
        For j = prvy To prvy + Range("O" & prvy) - 2
           With Rows(j & ":" & j)
                .Copy
                .Insert Shift:=xlDown
           End With
        Next j
    prvy = prvy + Range("O" & prvy)
    Next i
    Application.CutCopyMode = False
    Range("A1").Select
    Application.ScreenUpdating = False
End Sub

Ještě mě napadlo řešení bez cyklu.

Sub Doplnenie()
    
Dim prvy As Byte
    
Application.ScreenUpdating = False
    
    prvy = 2
           With Rows(prvy & ":" & prvy)
                .Copy
                .Resize(Range("O" & prvy) - 1).Insert Shift:=xlDown
           End With
    Application.CutCopyMode = False
    Range("A1").Select
Application.ScreenUpdating = False
End Sub

Ahoj Siki,
dáwno som Ťa nevidel!

Konečne sa tu zas objavilo niečo na Excel, však?

Chýbajú mi informácie, odpoveď si neposlal, takže zatiaľ len takto.
Aplikuj na svoju tabuľku.
Funguje to za predpokladu, že v stĺpci N sú zalamované údaje (čo predpokladám, že sú).
Ostáva poroztínať mená a dátumy narodenia...

Sub Doplnenie()
    Application.ScreenUpdating = False
    prvy = 2
    For i = 1 To Range("A1").End(xlDown).Row - 1
        zac = prvy
        pocet = Range("O" & prvy)
        For j = prvy To prvy + pocet - 2
            With Rows(j & ":" & j)
                .Copy
                .Insert Shift:=xlDown
            End With
        Next j
        Range("P" & zac) = Range("N" & zac)
        Application.CutCopyMode = False
        
        ria = zac
        PocOs = 0
dalsi:
        For k = 1 To Len(Range("P" & zac))
            If Mid(Range("P" & zac), k, 1) = Chr(10) Then
                Vymaz (ria + 1)
                Range("D" & ria + 1) = Mid(Range("P" & zac), 1, k - 1)
                PocOs = PocOs + 1
                Range("P" & zac) = Mid(Range("P" & zac), k + 1)
                ria = ria + 1
                GoTo dalsi
            End If
            If k = Len(Range("P" & zac)) And Range("P" & zac) <> "" Then
                Vymaz (ria + 1)
                Range("D" & ria + 1) = Range("P" & zac)
                PocOs = PocOs + 1
                Range("P" & zac) = ""
                Exit For
            End If
        Next k
        If PocOs <> (Range("O" & zac) - 1) Then
            MsgBox "Počet spoluubytovaných na riadku " & zac & " nesúhlasí s počtom osôb celkom", vbCritical, "Chyba"
            Exit Sub
        End If
        prvy = prvy + pocet
    Next i
    Range("A1").Select
End Sub
Sub Vymaz(rv)
    Range("A" & rv & ",D" & rv & ":F" & rv & ",M" & rv & ":O" & rv).ClearContents
End Sub

Je tam ošetrený prípad nesúladu medzi počtom uvedených spolubývajúcich v stĺpci N s počtom osôb celkom, uvedených v stĺpci O.
V takom prípade sa síce vytvorí plná kópia riadku rezervátora, ale ďalej sa nespracuje a postup sa zastaví.

Možno to ošetriť tak, že po zastavení sa údaje manuálne skorigujú a spustí sa makro od riadku s rezervátorom, u ktorého sa vyskytla chyba (treba dopracovať)

Mám pokračovať?

P.S. Skratky v, m a mv sú nespracovávané?

Děkuji, půjdu to zkusit - e-mail jsem Ti poslal před chvilkou, tam máš odpovězené i to m,v,mv (což není důležité je to muž/žena/nevyplněno), uděláme trochu jiný export, kde bude celkový počet hostů, ale o tom již také v e-mailu. Export dá bohužel počet do tří sloupců, které se budou muset prvně sloučit/sečíst.

OK, mail prišiel.
Odpíšem po tom, čo budem mať možnosť si to preštudovať.

Jasně - úplně v pořádku

Ahoj Roberte,
jo jo máš pravdu, v poslední době se mi nedostává volného času. Tak sem kouknu jen sporadicky. Taky sem se dal do výroby rosícího systému do terárií s pomocí arduina. Takže studuji Wiring atd.
A na Excel mi nějak nezbývá čas.