フィルタオプションから連番をつけたい

質問

フィルタオプションの設定からデータを抽出
　－表示されたデータの連番を振る
という作業のマクロを作りたいので、ご教授願います。

現況は以下のとおり、業種毎の抽出までをマクロ設定しています。
リストsheetのA列に、抽出後表示のみの連番を表示させる作業を現VBEに続け、一括処理することが希望です。
A列の値は、抽出毎に変わります。

＝リスト＝
　　A　　　　B　　　　　C
1　No.　事業所名　　業種
2　　　　○１○社　　　電気
3　　　　○２○社　　　サービス
4　　　　○３○社　　　ガス
5　　　　○４○社　　　サービス
6　　　　○５○社　　　電気
7　　　　○６○社　　　電気

＝検索条件＝
　　A
1　業種
2　電気
3　ガス
4　サービス

＝VBE＝
Range("C1:C7").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("検索条件").Range("A1:A4"), Unique:=False

SUBTOTAL(3,B2:B2)・・・も試しましたが、オートフィルタによる抽出には有効ですが、上記VBEの場合は無効でした。
また、VBEによる抽出後、SUBTOTALを改めてペーストすれば有効となることは確認しましたが、リスト使用者は、より簡単な操作を必要とします。

質問の検索結果、類似した質問は多々ありましたが、意図するところと若干ずれていたり、低レベルの私では回答内容が理解不能という、情けない結果となり、質問を立ち上げるに至りました。
よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

数式なら、A2 ～
=SUBTOTAL(3,C2)+MAX($A$1:A1)

下にフィルでコピーします。(マクロでワークシートに貼り付けてもよいけれども、数式を消さない限りは必要ないと思います。消してしまうようなら、最初からマクロに組み入れたほうがよいです。)
-------------------------------------------

マクロなら、
With ActiveSheet
　　For Each c In .Range("A2:A7")
　　　　If c.EntireRow.Hidden = False Then
　　　　　i = i + 1
　　　　　c.Value = i
　　　　End If
　　Next c
End With

お礼

ありがとうございました。
数式とマクロ、どちらも試してバッチリでした。大感動です！
この答が解読できるよう、勉強させていただきます。

ちなみに例として作った質問の検索条件とVBE、今更ですが間違いに気がつきました。なのによく質問を理解していただきました。
重ねてありがとうごさいました。
正しくは、

＝検索条件＝
　　A　　　B　　　C
1　業種　業種　業種
2　電気　ガス　サービス

＝VBE＝
Range("C1:C7").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("検索条件").Range("A1:A2"), Unique:=False
（業種ごとに.Range("B1:B2")・・・）

回答No.1

KURUMITO

SUBTOTALの範囲がB2:B2というのも気になりますが、関数を次のようにして使っているでしょうか？
WorksheetFunction.Subtotal(3,Range("B2:B2"))

補足

早々のご回答ありがとうございます。

正確には　A2セルから下へ
=SUBTOTAL(3,$B$2:B2)、=SUBTOTAL(3,$B$2:B3)、=SUBTOTAL(3,$B$2:B4)と続き、1行目へオートフィルタをかけ、C1セルの業種を絞り込めば、次のように表示されます。

＝リスト＝
　　A　　　　B　　　　　C
1　No.　事業所名　　業種
2　1　　○１○社　　　電気
6　2　　○５○社　　　電気
7　3　　○６○社　　　電気