エクセル関数_空白を省いて数字を入力

以下のように表があった場合に、フィルタをかけた際に"レ"点でチェックを入れた必要なものだけに
1～順番に数字を付けていきたいのですが、良い方法ないでしょうか？


フィルタ前
No. 　check
空白 | 空白
空白 | 空白
空白 | レ
空白 | 空白
空白 | 空白
空白 | レ
空白 | 空白
空白 | レ

フィルタ後
No. check
1 | レ
2 | レ
3 | レ

よろしくお願い致します。

No.1 ベストアンサー 回答者： kybo 回答日時： 2013/01/11 16:47

フィルタした時だけではなく、常に表示するのであれば、

例えば1行目にNo. checkの見出し、「レ」がB列にあり、No.がA列だとすると。

A2のセルには以下の様に入れ、下へ数式をコピーします。

=IF(B2="","",COUNTIF(B$2:B2,B2))

No.3 回答者： MackyNo1 回答日時： 2013/01/12 00:11

フィルタデータに対して連続番号を振りたいときは、SUBTOTAL関数を利用することになりますが、フィルタ行以外のセルには何も表示したいくないという場合は以下のような手順で関数を入力することになります。

例示のデータをフィルタしたときに一番上のデータ行は4行目になりますので、フィルタした一番上のA4セルには、開始セルB2を絶対参照して終了セルB4（自データの行まで）を相対参照した以下のような数式を入力して下方向にオートフィルすることになります。

=SUBTOTAL(3,B$2:B4)

No.2 回答者： CoalTar 回答日時： 2013/01/11 16:55

A2セルに

=IF(SUBTOTAL(3,B:B)=COUNTA(B:B),"",SUBTOTAL(3,B$2:B2))
下へオートフィル