Das meinte ich ja: Wenn das Feld Null ist, ersetzt du es in der extra Spalte einfach durch den Mittelwert der zwei Nachbarwerte. Und sobald was drin steht, was ungleich Null ist, wird natürlich der echte Wert genommen.
Oder du schreibst ein kleines Makro, sowas wie
Sub extra()
Dim i As Integer
Dim h As Integer
Dim j As Integer
For i = 1 To 16
Debug.Print i
h = i - 1
Debug.Print h
j = i + 1
Debug.Print j
If Cells(i, 1).Value <> 0 Then
Cells(i, 2).Value = Cells(i, 1).Value
Else
Cells(i, 2).Value = Cells(h, 2).Value + Cells(j, 2).Value / 2
End If
Next
End Sub