SUBTOTAL関数の不具合

質問

こんにちは。宜しくお願いします。

http://www.officetanaka.net/excel/function/tips/tips21.htm
上記URLのHP内で説明している「=SUBTOTAL(3,$B$2:B2)」の数式をマクロに組
み込んで連番を振りたいのですが、このHPでも最後に赤字で注意書きをしてい
る通り、データ範囲が正しく認識されず、フィルタ対象外データにも番号が振
られてしまいます。

フィルタ対象外データが表示されるのはどうやら最終行だけの様だったので、
最終行だけ番号を消すマクロを一緒に使う事も考えましたが、フィルタ対象外
データもフィルタ対象となる事がある為悩んでいます(上記HPの例だと「神奈
川」もフィルタ対象であり、最終行だけ番号を消すマクロを組み込んでしまう
と「神奈川」がフィルタリングされた際、番号が消されるデータが1つ出来て
しまう)。

SUBTOTAL関数の不具合を補う方法、もしくはフィルタ後に連番を付与する別の
方法等ございましたらご教示下さい。
例が解り辛くて申し訳ございません。不明点をご指摘頂きましたら補足させて
頂きますので宜しくお願いします。

回答No.1

GuruGuru22 · ベストアンサー

フィルタ後にsubtotal入れるんでは、だめなのかな。

お礼

有難うございました、結局とある人に教えて頂いた
Sub A列抽出行に連番()
Dim r As Range
Dim c As Range
Dim i As Long

With [A1].CurrentRegion
Set c = .Columns(1)
Set c = Intersect(c, c.Offset(1))
c.ClearContents
.AutoFilter 2, "神奈川"
For Each r In c.SpecialCells(xlCellTypeVisible)
i = i + 1
r.Value = i
Next
'.AutoFilter
End With
のコードを加工して、解決しました。