Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi there,
I have a spreadsheet with two columns Column A "level" and cloumn B "Task" and about 100 rows. I needed to insert 7 empty row between each raw and I have this macro to do this jub Option Explicit Sub InsertBlankRows() Application.ScreenUpdating = False Dim numRows As Integer Dim r As Long Dim Rng As Range Dim lastrw As Long numRows = InputBox("How many Rows") lastrw = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range(Cells(1, "A"), Cells(lastrw, "A")) For r = Rng.Rows.Count To 1 Step -1 Rng.Rows(r + 1).Resize(numRows).EntireRow.Insert Next r Application.ScreenUpdating = True End Sub now on cloumn B in the empty rows (7) I need to insert a leeters empty rows 1 B empty rows 1 B empty rows 1 B empty rows 1 B empty rows 1 B empty rows 1 B empty rows 1 B |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Insert a letter in front of number in every cell? | Excel Worksheet Functions | |||
I WANT TO INSERT A LETTER IN FRONT OF A NUMBERS | Excel Worksheet Functions | |||
Insert letter in cell | Excel Discussion (Misc queries) | |||
Insert letter/no among word | Excel Discussion (Misc queries) | |||
Insert and sum in empty cell | Excel Worksheet Functions |