JP

After paste special, you could also select the column and F5SpecialBlanksOK

EditDeleteEntire Rows.


Gord Dibben MS Excel MVP

On Fri, 11 Jan 2008 12:31:39 -0800 (PST), JP wrote:

Here's how I do it (I'm lazy):

Let's say your values are A1:A10.

1. In B1 put =AVERAGE(A1,A2).
2. Highlight B1:B2
3. Hover over the lower right corner of B2 so your pointer turns into
a plus-sign
4. Click and drag down to the end of your data.
5. PasteSpecialValues to get the actual averages.
(optional) 6. Paste into a new workbook, then run this procedure to
remove the blank rows.

Sub Del_Empty_Rows()

Dim rng As Excel.Range
Dim A As Long
Application.ScreenUpdating = False

If Selection.Rows.count 1 Then
Set rng = Selection
Else
Set rng = ActiveSheet.UsedRange.Rows
End If

With WorksheetFunction
For A = rng.Rows.count To 1 Step -1
If .CountA(rng.Rows(A).EntireRow) = 0 Then
rng.Rows(A).EntireRow.Delete
Next A
End With

Set rng = Nothing
Application.ScreenUpdating = True

End Sub


You can record yourself doing this if you need a macro.


HTH,
JP

On Jan 11, 2:57*pm, tony hill <tony
wrote:
take average of two sequencial cells in column. *Put results in new column. *
Move to next two cells. *Do the same. *Etc. *The new column should have half
as many cells as the first column.