Question

I have a named range of data, called ‘data’. I’m trying to find a formula or array formula that will return data in a new range of cells, but will all the blank rows missing.

i.e. data is:

row   x    y    
1     A    77    
2          
3     B    23    
4     A    100    
5    

And my new range is:

row    x    y    
1     A    77    
3     B    23    
4     A    100    

It’s ok if the blank rows end up at the end of the array. So far I am stumped

Answer 1

You should use the special cells method for this. Either with vba or Manually.

Manually

2007/2010

Select column A
Home Tab -Find & Select – Goto Special – Blanks – Ok
Home Tab – Delete Cells – Entire Row – Ok

VBA

Sub DeleteBlanks()
    Activesheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

If you want to leave the original data intact and copy the range to another sheet try something like:

Sub DeleteBlanks()

    Dim vArray As Variant
    '// Get an array of your data
    vArray = Sheet1.UsedRange
    '// Copy the data to another sheet
    Sheet2.Range("A1").Resize(UBound(vArray, 1), UBound(vArray, 2)).Value = vArray
    '// Delete blanks
    Sheet2.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

FORMULA

If you really need a formula take a look here:

Remove Blanks – Array Formula