Advanced Insert Cells Function?

  • Thread starter Thread starter smith06374
  • Start date Start date
S

smith06374

I am trying to select a range of cells (2x100apprx). I need to insert
a
blank cell beneath each existing cell (not an entire row) without
having to select each cell individually. I'm sure there is a macro
for
this, but I have no idea how to create it. Can someone advise how to
do this?
 
Sub advins()
Range("B9:C9").Select
Selection.Insert Shift:=xlDown
End Sub

This is an example! Replace B9:C9 by your real range! Try to record a macro
in such cases!


Regards,
Stefi



„smith06374†ezt írta:
 
Hi
Try this

Sub tester()
Dim Rowcount As Long
Rowcount = Selection.Rows.Count
For i = Rowcount To 1 Step -1
Selection.Rows(i).Insert Shift:=xlDown
Next i
End Sub

regards
Paul
 
Back
Top