Excelで空白でないセルの行間隔を求めたい

質問

悩んでいる状況をうまく説明できませんので、例を用いて相談させて頂きます。

添付画像におきまして、A列に適当な数値が入っています（値自身は問題ではありません）。
そのA列の数値が入っている行の間隔を求めたいと悩んでおります。

たとえば、A4には数値が入っており、A列を下にたどっていきますと、次にはA8に数値が入っています。
A4からA8までの間隔は、4つです。
その間隔を、今回の例の場合、A4と同じ行位置（添付画像の例ではC4の位置）に書き出したいのです。

さらに、引き続き、A8の次には、A9に数値が入っております。A8からA9までの間隔は1ですので、その値をA8と同じ行位置である行（添付画像では、C8）に記入したいのです。

以下、同様…。

おわかりになられる方、どうぞご教授お願いいたします。

回答No.3

noname#204879 · ベストアンサー

添付図参照
B1: =IF(A1,ROW(),"")
C1: =IF(A1,IF(MIN(B2:B$15)-B1,MIN(B2:B$15)-B1,""),"")

お礼

早速のご回答ありがとうございます。
おかげさまで、今回、私がやりたかったことを実現できました！

本当にありがとうございます。

補足

教えて下さった内容で今回の私のやりたいことは実現できたのですが、ご回答にありますB$15のように最後尾のセルに頼らないで実現する方法がございましたら、教えて頂けますと幸いです。

もう少しの間、皆さんのご回答を募らせて頂きます。

回答No.5

noname#204879

[No.3補足]へのコメント、
「最後尾のセルに頼らないで実現する方法」？
B$15 の代わりに B$65536 とするのは如何でしょ。
(そのくらいなら言われンでも分かっチョル？)

お礼

度々ありがとうございます。
はい、おっしゃられたように対応しております（B$999ですが…^^）。

ですが、よくよく考えてみますと、最後尾に頼らないことにあまり意味がないことに気づきました。
愚問で失礼しました。

本件はこれにてクローズさせて頂きます。

この度は、本当にお世話になりました。

回答No.4

noname#204879

[No.3]へのコメント、
提示式の汎用性を検討するために、セル A1 にも数値を入力したけど、此処は空白でも構いません。

回答No.2

K Kazz（@JazzCorp）

Option Explicit
Sub 下から調べる()
Dim xValue As Variant
Dim xPos As Long
Dim vLast As Long
Dim kk As Long
Dim mm As Long
Dim nn As Long
Columns("C").ClearContents
vLast = Cells(Rows.Count, "A").End(xlUp).Row
xPos = 0
For nn = vLast To 1 Step -1
If (Not IsEmpty(Cells(nn, "A").Value)) Then
If (xPos > Cells(nn, "A").Row) Then
Cells(nn, "C").Value = xPos - Cells(nn, "A").Row
End If
xPos = Cells(nn, "A").Row
Else
End If
Next
End Sub

お礼

早速のご回答ありがとうございます。
今回は、マクロを使わずに実現したいと思っております。
コードをお示しくださいましてありがとうございました。
マクロを組む際には、参考にさせて頂きます。

回答No.1

noname#198951

A列で配列作って、指定した行から空白以外の文字が出てくるまでの数をカウントすれば出来そうではあるけどかなり厄介かも。

お礼

早速のご回答ありがとうございます。
私も配列を使う方向で検討しているのですが、なかなかうまくできません。
ご意見、参考にさせて頂きます。