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
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - May 16, 2013 at 11:01 AM
Related:
- 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
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
549
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