![]() |
![]() |
|
|||||||
| Excel Questions All Excel/VBA questions - formulas, macros, pivot tables, general help, etc. Please post to this forum in English only. |
![]() |
|
|
Thread Tools | Display Modes |
|
|
#1 |
|
New Member
Join Date: Apr 2002
Posts: 14
|
I have a list of 500, each in a row. I want to insert a row above each row, so it would be a data row, a blank row, a data row, a blank row...
Thank you |
|
|
|
|
|
#2 |
|
MrExcel MVP
Join Date: Feb 2002
Location: Austin, Texas USA
Posts: 11,654
|
Insert a blank column to the left of your existing data. In this column number your rows 1-500. Copy these 1-500 values and paste them directly beneath the copied values. Sort your rows in ascending order based on the 1-500 values. Delete the inserted column.
|
|
|
|
|
|
#3 |
|
New Member
Join Date: Apr 2002
Posts: 14
|
Thank you great idea,
but I need them ( the rows ) in the alphabetic order there are in now. what would you suggest ? thanks agian |
|
|
|
|
|
#4 |
|
New Member
Join Date: Apr 2002
Posts: 14
|
omg,,how silly of me....it worked great
THANK YOU ... |
|
|
|
|
|
#5 |
|
MrExcel MVP
Join Date: Apr 2002
Location: Vancouver BC , Canada
Posts: 6,259
|
Macro Solution for you
Code:
Sub AddSpace()
For Rw = 1 To 1000 Step 2
Rows(Rw & ":" & Rw).Insert Shift:=xlDown
Next
End Sub
|
|
|
|
![]() |
| Bookmarks |
| Thread Tools | |
| Display Modes | |
|
|