Insert multiple copied rows at fixed intervals

Closed

Excel

gizework Posts 5 Registration date Saturday February 24, 2018 Status Member Last seen March 7, 2018 - Updated on Feb 26, 2018 at 04:08 AM
gizework Posts 5 Registration date Saturday February 24, 2018 Status Member Last seen March 7, 2018 - Mar 7, 2018 at 12:25 AM

Helo

Would you please help me by giving Solution for my Question how I can insert multiple copied rows n time at fixed interval using excel macros I thank you in advance for best cooperation.

How to insert specific number of rows at fixed intervals in excel
Number to words in excel - Guide
How to insert photo in word for resume - Guide
Insert gif in excel - Guide
How to insert check mark in word - Guide
How to insert watermark in word - Guide

2 responses

Answer 1 / 2

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 555
Feb 26, 2018 at 12:23 PM

Hi Gizework,

You aren't very specific. Give this code a try (it's just a start):

Sub RunMe()
Dim sRow As Range
Dim nTimes, fInterval, mLimit, x, y As Integer

Set sRow = Application.InputBox("Select row(s)", Type:=8)

nTimes = InputBox("How many times would you like to insert selected row(s)", "Repeat n times")
fInterval = InputBox("What is the fixed interval?:", "Input fixed interval")
mLimit = InputBox("Input the row you don't want to insert past:?")

Do
    y = y + fInterval
    For x = nTimes To 1 Step -1
        sRow.Copy
        Rows(y).Insert
    Next x
Loop While y < mLimit
End Sub

Best regards,
Trowa

Blocked Profile
Feb 26, 2018 at 07:38 PM

I am waiting for the "Change Order"!

gizework Posts 5 Registration date Saturday February 24, 2018 Status Member Last seen March 7, 2018
Updated on Feb 27, 2018 at 12:38 AM

I thank you for your help. It worked a little bit with what I intended, but please let me request you one more question what I perfectly need. In my previous question I said Fixed Interval, what i mean this, I want the copied rows to be pasted three or four rows below the selected copied rows and again below three or four rows the next inserted rows repeatedly until n times rows Inserted.. I thank you in advance for your best help.

Answer 2 / 2

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 555
Mar 6, 2018 at 11:12 AM

Hi Gizework,

The following code will do as shown in your Text A post.

Here is the code:

Sub RunMe()
Dim x As Long
Rows("1:2").Copy

x = 5

Do
    Rows(x).PasteSpecial
    x = x + 4
Loop Until x > 14

Application.CutCopyMode = False
End Sub

Will that work for you?

Best regards,
Trowa

gizework Posts 5 Registration date Saturday February 24, 2018 Status Member Last seen March 7, 2018
Mar 7, 2018 at 12:25 AM

Hi Trowa
I Thank you very very much. It worked Perfectly.

with Best regards

Gizework

Similar discussions

Code to move rows into another sheet based on certain values

Macro to insert row based on variable cell value (text)

macro for inserting multiple rows between data

How to duplicate rows x number of times

Excel - To generate unique ID

Copy and insert rows and number of times

Similar discussions

Subscribe To Our Newsletter!