INSERT 3 ROWS WHEN DATA OF COLUM CHANGED

  • Thread starter Thread starter tran1728
  • Start date Start date
T

tran1728

Good mornig, pls help me, i want insert 3 rows when the data changed
Colum A
Row 1 920
Row 2 920
Row 3 920
Row 4 728
Row 5 661

I want insertation automatique 3 rows atfter Rows3 and after rows4.
Thans so much.


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...5-fd2e1ea61690&dg=microsoft.public.excel.misc
 
Try this macro

Sub AddRows()
Dim lrow As Long

For lrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lrow, 1) <> Cells(lrow - 1, 1) Then _
Cells(lrow, 1).Range("A1:A3").EntireRow.Insert
Next lrow

End Sub
 
Thank you so much, it is OK.



ozgrid.com said:
Try this macro

Sub AddRows()
Dim lrow As Long

For lrow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(lrow, 1) <> Cells(lrow - 1, 1) Then _
Cells(lrow, 1).Range("A1:A3").EntireRow.Insert
Next lrow

End Sub
Click to expand...
 
Back
Top