Ms Excel copier et coller les données dupliquées par x

Peu de valeur d'aide avec INDIRECT La fonction de feuille de calcul résout le problème :

Situation 1 :

Comment cela fonctionne :

• Mettre la valeur désirée dans la cellule G2 indique le nombre de fois que vous souhaitez répéter un ensemble de données.
• Formule de compteur de rangs dans une cellule G3 :

=COUNTA(F2:F4)*G2

• Formule finale dans la cellule H2 :

  =IF(ROW(H2)>G$3+1,"",IF(ISBLANK(INDIRECT("F"&ROW(F2))),INDIRECT("H"&(ROWS($F$2:F2)-(COUNTA(F:F)-2))),F2))

N.B.

• Remplissez la formule jusqu'à quelques rangées supplémentaires.

Situation 2 :

N.B.

• Dès que vous changez la valeur dans la cellule G2 pour répéter un ensemble de données n times la formule s'ajustera pour donner le résultat suivant column H .
• Vous pouvez ajuster les références de cellule dans la formule si nécessaire.

Vous pouvez essayer ce code. Lien vers un bouton sur la page, il suppose que l'entrée est de A2 vers le bas et la sortie ira de C2 vers le bas sur la feuille 1 (modifier en fonction).

Sub Duplicate()
Application.ScreenUpdating = False

Dim ws As Worksheet: Set ws = Sheet1
Dim MyCRnge As Range, c As Range
Dim MyX As String
Dim MyArr() As Variant
Dim i As Long, x As Long

Set MyCRnge = ws.Range(ws.Cells(2, 1), ws.Cells(ws.Cells(2, 1).End(xlDown).Row, 1))

MyX = InputBox("Give me a number", "My Duplicator")
If Not IsNumeric(MyX) Then Exit Sub
MyX = CLng(MyX)

ReDim MyArr(MyX * MyCRnge.Rows.Count)
x = 1
For i = LBound(MyArr) To UBound(MyArr) - 1

    MyArr(i) = MyCRnge(x, 1)
    If x = MyCRnge.Rows.Count Then
    x = 1
    Else
    x = x + 1
    End If

Next i

ws.Range(ws.Cells(2, 3), ws.Cells((MyX * MyCRnge.Rows.Count) + 1, 3)) = Application.Transpose(MyArr)

End Sub