excel関数の質問です。

VBAで独自のワークシート関数を定義する、
というのも無しなんでしょうね？…恐らく。

目的のセルより下方へのカウントは簡単にできそうですが
上方へのカウント方法が思い付きませんでした。
一応、VBAの標準モジュールでユーザー定義関数を作成してみました。
何の芸も無い単純かつ最小限なものですが…。
"=Lhankor_Mhy(A1)"の形式でお使い下さい。
－－－－－
Function Lhankor_Mhy(rng As Range) As Long

Const varChk As Variant = 1
Const varSkp As Variant = 0

Dim lngCol As Long
Dim lngRowU As Long
Dim lngRowL As Long

If rng.Value = varSkp Then
Lhankor_Mhy = 0
ElseIf rng.Value = varChk Then
lngCol = rng.Column
lngRowU = rng.Row
lngRowL = lngRowU
Do While (lngRowU > 1) And _
(Cells(lngRowU, lngCol).Value = varChk)
lngRowU = lngRowU - 1
Loop
Do While Cells(lngRowL, lngCol).Value = varChk
lngRowL = lngRowL + 1
Loop
Lhankor_Mhy = lngRowL - lngRowU - 1
Else
Lhankor_Mhy = CVErr(xlErrNA)
End If

End Function

複数列使っても良かったのか…orz。