エクセル 非表示設定有り時のシーケンス番号

質問

下記例のNo.列のようにデータのシーケンス番号を埋め込んでいます。
例）元データ表示
　No.　品名　状態
　１　　AAA　OK
　２　　BBB　OK
　３　　CCC　NG
　４　　DDD　OK
この時、状態列がNGのデータを非表示にするとどうしても以下のように
シーケンス番号が飛んでしまいます。
例）NG非表示
　No.　品名　状態
　１　　AAA　OK
　２　　BBB　OK
　４　　DDD　OK

以下のように自動的にシーケンス番号を変化させる方法はありませんか？
例）NG非表示
　No.　品名　状態
　１　　AAA　OK
　２　　BBB　OK
　３　　DDD　OK
例）OK非表示
　No.　品名　状態
　１　　CCC　NG

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

回答No.2

mar00

Sub Macro1()
OK_COUNT = 0
NG_COUNT = 0
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Range("C" & i)
Case "OK"
OK_COUNT = OK_COUNT + 1
Range("A" & i) = OK_COUNT
Case "NG"
NG_COUNT = NG_COUNT + 1
Range("A" & i) = NG_COUNT
End Select
Next i
Range("A2").Sort Key1:=Range("C2"), Order1:=xlDescending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
End Sub
番号を振りなおして並べ替えでOKを上に、NGを下にかためます。
番号を直接振り直していますので、試す時はシートをコピーしてから
試してください。元に戻せなくなります。

回答No.1

MackyNo1

A2セルに以下の式を入力してください。

=SUBTOTAL(3,$B$2:B2)