Announcement

Collapse
No announcement yet.

Add X Rows Between Each List Item

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Add X Rows Between Each List Item

    i want to be able to drag a formula down and have it skip rows when doing so. please see example attached sheet for clarification. or if someone can suggest a way of inserting two rows inbetween data automatically that would work too.
    Attached Files

  • #2
    Re: Skip Two Rows In Formula

    I can't download your attachment right now but try selecting the first cell with the formula and the two below and then drag down those three cells with the Fill Handle. Does that work?
    Last edited by Dave Hawley; December 2nd, 2006, 12:53.

    Comment


    • #3
      Re: Skip Two Rows In Formula

      Not quite sure if this is what you mean, but if you copy it down once then highlight the first 2 plus 2 blank rows you can then drag down.

      ie
      A1 1
      A2
      A3
      A4 2

      then highlight A1:A6 and drag down.


      TJ

      Edit: ignore this post as there is no need to do the first copy
      Last edited by tinyjack; December 2nd, 2006, 05:53.
      Oh dear I need a beer
      Online Motorsport Game

      Comment


      • #4
        Re: Skip Two Rows In Formula

        unless i am doing something wrong excel tries to skip those cells when you drag or copy. maybe the solution is a macro that inserts two rows after data. perhaps someone could help with this idea.

        Comment


        • #5
          Re: Skip Two Rows In Formula

          Hi,

          Try something like

          Sub Test()
          Dim i As Long, j As Long
          i = [a65536].End(xlUp).Row
          For j = i To 2 Step -1
          Rows(j + 1 & ":" & j + 2).Insert
          Next j
          End Sub
          Kris

          ExcelFox

          Comment


          • #6
            Re: Skip Two Rows In Formula

            This macro assumes you data starts in A1.

            Code:
            Sub AddRowsBetween()
            Dim lLoop As Long
            
                For lLoop = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
                    Cells(lLoop, 1).Range("A1:A2").EntireRow.Insert
                Next lLoop
            
            End Sub

            Comment

            Working...
            X