Results 1 to 4 of 4
  1. #1
    New Lounger
    Join Date
    Apr 2004
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Frequently when I need to add rows to an Excel doc, I need to add many rows. Sometimes 50 or more.

    Currently I only know how to add rows one at a time, so I have to go thru this operation 50 times. Is there a way to add more rows, say 10 or 20 at a time?


    Thanks in advance.

  2. #2
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Select and copy one row, say row 1, select 50 rows from row 2 onwards, right click and select insert copied cells.

    Hope this helps.

  3. #3
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Spokane, Washington, USA
    Posts
    332
    Thanks
    0
    Thanked 0 Times in 0 Posts
    If you only need to insert blank rows, not copies of existing rows, you can simply select the number of additional rows needed, right-click and choose insert. The blank rows will be inserted above your selected rows. The only caveat is that the new blank rows will inherit the formating of the row above.
    Samantha

    Everything in excess! To enjoy the flavor of life, take big bites. Moderation is for monks!
    Robert A. Heinlein - Time Enough for Love

  4. #4
    Platinum Lounger
    Join Date
    Feb 2002
    Location
    A Magic Forest in Deepest, Darkest Kent
    Posts
    5,681
    Thanks
    0
    Thanked 1 Time in 1 Post
    Hi Patrice

    If it is a regular tasks and becomes irksome, you could try this little poece of code in a module:

    Sub InsertRow()
    Dim intRange As Integer
    intRange = InputBox("How many rows required.")
    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(intRange - 1, 0)).Select
    Selection.EntireRow.Insert
    End Sub

    HTH
    Jerry

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •