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 December 27, 2022 - May 16, 2013 at 11:01 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - May 16, 2013 at 11:01 AM
Related:
- INSERT ROW DATA INTO EVERY SECOND ROW
- Saints row 2 cheats - Guide
- How to delete a row in a table in word - Guide
- Insert gif into excel - Guide
- Tmobile data check - Guide
- Insert check mark in word - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
May 16, 2013 at 11:01 AM
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:
Best regards,
Trowa
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
