[Solved] Adding blank rows between rows

[Lindy]

I'm starting out with a 100-row spreadsheet, each row is text and unique. What is the fastest way to insert 3 blank rows between each text row? I currently select three rows, right click, and click Insert Rows, which is very time consuming. Thank you.

[MrProgrammer]

In a new column immediately to the right of your data, type 0 in the first cell and fill that down (use fill handle as described in Help) to create 0, 1, 2, …, 99. In the next row (that is 101) type 0.1 and fill that down to get 0.1, 1.1, 2.1, …, 99.1. Repeat to get 0.2, 1.2, 2.2, …, 99.2 and 0.3, 1.3, 2.3, …, 99.3 in the next 200 rows. Sort the 400 rows by the new column, then delete it.

If this answered your question please go to your first post use the Edit button and add [Solved] to the start of the title. You can select the green checkmark icon at the same time.

[Lindy]

Pure genius, works great. Thanks a lot!

[silvanet]

This is not a solution! Doesn't anyone in this forum know how to program in VBA? How about somebody helping with a simple VBA routine that allows this to be done without all that incredible BS extra work?

[MrProgrammer]

This is not a solution!

The OP marked this as [Solved], hence it was a solution to that problem, and Lindy's response suggests that it was a good solution. Your problem is different because you want to use VBA instead of the standard user interface, and you must open a new topic. Read Don't hijack the thread of other users.

[kingfisher]

silvanet, you should also ask that question on the Macros & API board. Before I realised you had posted in the wrong place I copied some old code. It may help you so here it is:

Code: Select all   Expand viewCollapse view

'Define the weekly table for the stock being updated, insert a row and add to table.
Dim sWStr as String, oDBase2 as Object, oCells2 as Object, lWTop as Long, lWRight as Long, _
   lWFoot as Long
sWStr = Ucase( sCode ) & "wk" : oDBase2 = vDBases.getByName( sWStr )
oCells2 = oDBase2.ReferredCells
lWFoot = oCells2.RangeAddress.EndRow + 1 : oSheet1.Rows.insertByIndex( lWFoot, 1 )

[AlwaysPaws]

It may be five years later, but this helped me tremendously. I have a spreadsheet of over 10,000 items and needed to insert two extra rows between each row. Thank you, MrProgrammer.

[Lupp]

I have a spreadsheet of over 10,000 items and needed to insert two extra rows between each row.

I am wondering, and a bit curious now. Would you mind to tell the reasons (probably in a somehow abstract way)? From many years of using spreadsheets I cannot remeber a case of the kind.

[AlwaysPaws]

Hi, I am adding products that need to be in three separate categories but I only have the categories listed on one line per item. I have about 30 categories and the sheet I'm working with has the categories all mixed up because the manufacturer uses a different categorization than I want to use on my site.

In other words, using a made-up example:
Here are three categories:

Candy Lovers candy/chocolate candy
Candy Lovers candy
Chocolate candy

[acheide]

I used your method to double space a list by using odd numbers and then even numbers.
Thank you MrProgrammer.

[John_Ha]

I used your method to double space a list by using odd numbers and then even numbers.

Be very cautious doing so! If you create the odd and even numbers by "cell below = cell above + 2" you are referencing the very cells you will be sorting on . While the sort does work by happenstance in this case the numbers themselves change.

See sort.ods. The numbers start as 1, 2, 3, .., 18, 19, 20 but end as 1, 2, 4, 6, 8, 10, 12, .., 34, 36, 38 after the sort on Column D.

Clipboard01.png (5.78 KiB) Viewed 1697 times