Excel Macro help, copy rows and paste rows X times below [Closed]

Question

Excel Macro help, copy rows and paste rows X times below [Closed]

Report

kaidai

Posts: 1
Registration date: Thursday May 4, 2017
Status: Member
Last seen: May 4, 2017

- May 4, 2017 at 12:33 PM
TrowaD

Posts: 2718
Registration date: Sunday September 12, 2010
Status: Moderator
Last seen: April 15, 2021

- May 8, 2017 at 11:43 AM

Hello,

I need an macro to simply the below operation.
I want to copy below text x times

A B C
D E
F G

If I want to output it 3x, the the output will be

A B C
D E
F G
A B C
D E
F G
A B C
D E
F G

Any help greatly appreciated

Excel Macro help, copy rows and paste rows X times below
Excel - Macro to highlight Rows with Duplicate values in a cell ✓ - Forum - Excel
Excel Macro to insert row based on data ✓ - Forum - Excel
Excel Macro: combine selected rows ✓ - Forum - Excel
Excel Macro for deleting rows IF cells not... ✓ - Forum - Excel
Excel macro to copy rows from one sheet to another based on condition ✓ - Forum - Excel

1 reply

Ask a question

TrowaD · Answer 1 · 2017-05-08T11:43:31-0400

Answer 1 / 1

TrowaD

Posts: 2718
Registration date: Sunday September 12, 2010
Status: Moderator
Last seen: April 15, 2021

459
May 8, 2017 at 11:43 AM

Hi KaiDai,

Give the following code a try (assuming data is located over cell A1):

Sub RunMe()
Dim x As Integer

x = InputBox("What is x?", "Output x number of times")

Range("A1").CurrentRegion.Copy

Do
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    x = x - 1
Loop Until x = 1

Application.CutCopyMode = False
End Sub

Best regards,
Trowa

Excel Macro help, copy rows and paste rows X times below [Closed]

1 reply

Your reply

Subscribe To Our Newsletter!