Con una rutina de VBA es trivial. Suponiendo que las fechas esten en la primera columna desde la celda A1 hasta la Axxx y se desa contabilizar todas aquellas cuyo año sea 2007:
Código:
Sub CuentaFechas()
I = 1
Contador = 0
Do While Cells(I, 1) <> Empty
Fecha = Cells(I, 1)
Año = Year(Fecha)
If Año = 2007 Then
Contador = Contador + 1
End If
I = I + 1
Loop
Cells(I, 1) = Contador
End Sub