This method is an easier but roundabout to insert blank rows between
exiting rows. You can do as follows:
1. You need a blank column adjacent to your data. For example, I have a
worksheet comprises A1:E9, you can use column F.
2. In cell F1 input the number 1, and input 2 in cell F2.
3. Select the number 1 and number 2, and double-click the fill handle,
Excel will auto-fill the cells in column F.
4. Then copy this new column F (F1:F9), select the cell F10, and paste the
auto-fill number from F1:F9. See screenshot:
[image: doc-insert-blank-rows1]
5. And then click *Data* > *Sort*, and a* Sort Warning* dialog box will pop
out, select* Expand the selection* option, and click* Sort*… See screenshot:
6. And a *Sort* dialog box will appear, choose* Column F *from the *Sort by*
dropdown list. See screenshot:
7. Click *OK*. Then delete the column F. And the new blank rows have been
inserted in the exiting rows. See screenshot:
*Note*: If you would like to insert two or three blank rows between each
row, you can copy the new auto-fill column two or three times to add the
new rows.
------------------------------
[image: arrow blue right bubble]* Insert alternate blank rows with VBA code*
If the above way is a little complex, you can also use the VBA code to
solve it.
1. Click* Developer* > *Visual Basic*, a new* Microsoft Visual Basic for
applications* window will be displayed, click *Insert* >* Module*, and
input the following code into the *Module*:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address,
Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
2. Then click [image: doc-multiply-calculation-3] button to run the code,
then a dialog is diaplayed on the screen for you to select a range to
insert blank rows, see screenshot:
3. Click *Ok*, and a new blank row will be inserted between every two rows.
See screenshots:
------------------------------
[image: arrow blue right bubble]* Quickly insert specific numbers of blank
rows with Kutools for Excel*
The two methods all just refer to inserting blank rows between each rows,
if I want to insert a blank row after every nth rows, how should I do?
The tool *Insert blank rows & columns* of* Kutools for Excel* can help you
to do this quickly and easily.
*Kutools for Excel:
<http://www.extendoffice.com/product/kutools-for-excel.html> * with more
than 120 handy Excel add-ins, free to try with no limitation in 30 days.*
Get it Now <http://www.extendoffice.com/download/kutools-for-excel.html> *
After installing *Kutools for Excel*, please do as this:
1. Select the range that you want to insert the blank rows.
2. Click *Kutools* >* Insert *>* Insert Blank Rows & Columns*…, see
screenshot:
3. In the *Insert Blank Rows & Columns* dialog box, choose* Blank rows*
from *Insert type*, and then specify the numbers into *Interval of* and*
Rows* box that you need. See screenshot:
4. Then click *OK*. And the blank rows have been inserted after every two
rows. See screenshots:
*Note*: the number in the *Interval of* and* Rows* can be adjusted to meet
your need. For example, you can insert three, four, five… blank rows after
every one, two, three… rows.
*Click to know more about this Insert Blank Rows & Columns feature
<http://www.extendoffice.com/product/kutools-for-excel/excel-insert-blank-rows-column.html>*
.
On Thu, Jun 4, 2015 at 1:37 PM, Sundarvelan N <nsund...@gmail.com> wrote:
> Dear Friends,
>
> Please help me to insert blank/new row under each row using any macro.
>
> Thanks
> N.Sundarvelan
> 9600160150
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
Regards,
Manoj Garg
Mobile:+91-9927199217
<http://www.datacure.blogspot.com>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
