INSERT ROW DATA INTO EVERY SECOND ROW

Solved/Closed

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 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - 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
Saints row 2 cheats - Guide
How to delete row in word - Guide
Insert tick in word - Guide
Tmobile data check - Guide
Insert button on keyboard - Guide

1 response

Answer 1 / 1

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 549
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

Similar discussions

How to generate a STATIC unique identifier for each Excel row

Micro sd card showing "please insert Disk"

Excel Macro - Set and autofill a range?

Converting rows of data in notepad to columns

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

Similar discussions

Subscribe To Our Newsletter!