Makro, gentage kopi x gange

Du kan gøre det med en simpel formel i D1 og kopiere nedad:

=MOD((ROWS($1:1)-1);24)+1

på dansk

=REST((RÆKKER($1:1)-1);24)+1

eller, hvis du har adgang til SEQUENCE funktionen (tror den hedder SEKVENS på dansk)

=MOD((SEQUENCE($G$1;;;1)-1);24)+1

hvor G1 indeholder antallet af rækker, for eksempel 10.000.

Hej Xl-Entusiast
Jeg kan åbenbart ikke anvende sekvens funktionen så jeg har brugt dit første forslag, de her;
Sub Timetal()
'
' Timetal Makro
' Indsætter døgnets 24 timertal i søjle D ud for hvert datasæt i sekvens
'

'
    Selection.End(xlUp).Select
    Range("B8").Select
    Selection.End(xlDown).Select
    Range("D49231").Select
    ActiveCell.FormulaR1C1 = "x"
    Selection.End(xlUp).Select
    Selection.Copy
    Range("D9").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("E8").Select
    Application.CutCopyMode = False
End Sub

SEQUENCE is only available in Excel for Microsoft 365 and Excel 2021 that support dynamic arrays