Inserting Blank Rows Within Subtotalled Data

Keithcornett · May 1st 2007

Hi,

I've got a spreadsheet that I prepare for a group that has patient data subtotalled by physicians. The problem is that the group uses this data for data entry and wants a blank row between each different patient name within the physicians subtotals and I have no clue how to get there. Any chance there might be some VBA code that could accomplish this?

I appreciate any help on this one.

Keith

bryce · May 1st 2007

Re: Inserting Blank Rows Within Subtotalled Data

Can you post what your working with, it will make it easier for someone to help you.

Keithcornett · May 2nd 2007

Re: Inserting Blank Rows Within Subtotalled Data

Absolutely! The first spreadsheet shows what the data currently looks like. The second shows the view after inserting the blank rows. Each time the medical record number changes (column A), I need to insert a blank row.

shg · May 2nd 2007

Re: Inserting Blank Rows Within Subtotalled Data

Does this work for you?

Code

Sub KC()
    Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Cells(i - 1, 1) <> Cells(i, 1) Then
            Rows(i).Insert
        End If
    Next
End Sub

Keithcornett · May 2nd 2007

Re: Inserting Blank Rows Within Subtotalled Data

Wow, that worked perfectly! Thank you so much...

Inserting Blank Rows Within Subtotalled Data

Participate now!

Share