[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 300
  • Last Modified:

Insert blank rows in Excel

Hi,

I have a list (in columns A and B) in Excel containing file paths and I need to insert 12 blank rows between each file path. Is there an easy way to do this?

Regards
bernjerg
0
bernjerg
Asked:
bernjerg
1 Solution
 
vboukharCommented:
Quick replay:
Look at sample below - it's VBA program, that adds 12 lines after each non-empty cell in first column.
Sub AddLines()
 i = 1
 k = 0
 Do Until k > 13
   If Not IsEmpty(Cells(i, 1)) Then
     k = 0
     For j = 0 To 11
       Rows(i + 1).Insert xlShiftDown
     Next j
   Else
     k = k + 1
   End If
   i = i + 1
 Loop
End Sub
You have to open VBA editor (alt-F11) and copy-paste code above to Thisworkbook area. Then skip to Excel and run AddLines (alt-F8)

Hope it helps.
0
 
bernjergAuthor Commented:
Thank you!

Exactly what I was looking for!!!

Regards
bernjerg
0
 
tureCommented:
bernjerg,

Here's a non-VBA step-by-step solution.

1. Insert a new column A
2. Enter 1 in cell A1 and 2 in cell A2
3. Select A1:A2
4. Double-click the fill handle to fill a series as far down as there are values in column B
5. Press Ctrl+C to copy this range.
6. Press Shift+Tab to see activate the last cell in the range

Let's do some manual calculations:
What's the number in that cell? In my case it is 10.
Multiply the number by 13. (That makes 130 in my case)

7. Press Ctrl+G (Go to)
8. Enter the range A1:A130   <--- (the number you calculated above)
9. Click 'OK'
10. Press Ctrl+V to paste into all these cells
11. Select cell A1
12. Press the 'Sort Ascending' toolbar button
13. Delete column A

Ture Magnusson
Karlstad, Sweden
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now