INSERT ROW DATA INTO EVERY SECOND ROW [Solved/Closed]

Question

INSERT ROW DATA INTO EVERY SECOND ROW [Solved/Closed]

Report

MadLooni

Posts: 1
Registration date: Thursday May 16, 2013
Status: Member
Last seen: May 16, 2013

- May 16, 2013 at 06:18 AM
TrowaD

Posts: 2631
Registration date: Sunday September 12, 2010
Status: Moderator
Last seen: July 6, 2020

- May 16, 2013 at 11:01 AM

Hi

I have an excel sheet with blank rows every odd line (i.e rows 2,4,6,8...700 are empty). I have to paste a row of data (the same all the way through) into each of these blank rows. So I have paste the same data in every blank row (odd rows) from A1 - H1.

Would appreciate any expert's help!

thanks

INSERT ROW DATA INTO EVERY SECOND ROW
Macro to insert rows between data - Forum - Excel
Insert Multi Rows Between Existing Data ✓ - Forum - Excel
Excel auto insert row when data changes ✓ - Forum - Excel
Macro to insert multiple rows between existin ✓ - Forum - Excel
Code for macro that conditionally inserts rows ✓ - Forum - Excel

1 reply

Ask a question

TrowaD · Accepted Answer · 2013-05-16T11:01:23-0400

Answer 1 / 1

TrowaD

Posts: 2631
Registration date: Sunday September 12, 2010
Status: Moderator
Last seen: July 6, 2020

428
May 16, 2013 at 11:01 AM

Hi MadLooni,

The following code will copy the data from A1:H1 and will paste it to every odd row until row 699:

Sub FillInOddRows()
Dim x As Integer
Range("A1:H1").Copy
x = 1
    Do
        x = x + 2
        Range("A" & x).PasteSpecial
    Loop Until x = 699
Application.CutCopyMode = False
End Sub

Best regards,
Trowa

INSERT ROW DATA INTO EVERY SECOND ROW [Solved/Closed]

1 reply

Your reply

Muslim Pro

Animal Crossing: Pocket Camp

Tacticool - 5v5 shooter

Resident Evil 3: Raccoon City Demo

Minecraft: Education Edition

Ukulele Tabs & Chords

Amigurumi

HEALTHLYNKED COVID-19 Tracker

COVID Symptom Tracker

Zoom

Houseparty