オートフィルタのデータに連番をつける時。

Question

オートフィルタで抽出したデータに連番をつける時は、
subtotal関数を使う方法しかないのでしょうか？
これが一番簡単な方法なのでしょうか？

エクセル２００７には　‘アウトライン’という機能がありますが、
これを使えば連番をだすことはできるのでしょうか？
挑戦してみたのですが、私にはできませんでした。

エクセル２００３・２００７においてsuubtotal関数以外で
方法があれば教えてください。
どうぞ宜しくお願いします。

xls88 · Accepted Answer

＞suubtotal関数以外
抽出された状態で
空白列で、抽出データ行の先頭セルに、
=MAX($A$1:A1)+1
このセルを下方にコピー

マクロの例
セル範囲は実状に合わせて書き換えてください。
抽出された状態で実行

Dim rng As Range
    Dim c As Range
    Dim i As Long
    
    Set rng = Range("A2:A16").SpecialCells(xlCellTypeVisible)
    For Each c In rng
        i = i + 1
        c.Value = i
    Next

KURUMITO · Answer

回答Ｎｏ2です。
Ｂ2セルへの入力の式は次のように変更してください。

=IF(A2="AA",COUNTIF(A$2:A2,"AA"),"")

KURUMITO · Answer

連番はSUBTOTAL関数を使われるのがよいでしょう。他の機能を使うにしてもドラッグ操作が入らずに連番を付けることはオートフィルタをしない場合でも無理でしょう。
どうしてそのような質問をされたのか分からないのですが、SUBTOTAL関数で付けた番号はオートフィルタを解除すれば別の番号に変わってしまいますね。使われている表の中でオートフィルタを解除しても変わらない番号を付けたいのでしたら、SUBTOTAL関数では対応できませんね。別の式を使うことになります。
例えばＡ1セルに項目名があり、その中でフィルタの際に抽出したＡＡの文字を対象として番号を付けるとしたらＢ2セルには次のような式を入力して下方にオートフィルドラッグします。

=IF(A2="","",COUNTIF(A$2:A2,"AA"))

web2525 · Answer

＞オートフィルタで抽出したデータに連番をつける
＞subtotal関数を使う方法

イメージがよく分からないのですが

A列にデーターが存在する場合B列に連番を表示するには
A2セルからデーターが始まるとして、B2セルに
=SUBTOTAL(103,$A$2:$A2)
と入力し下方向にフィル

こんな感じなのでしょうかね？

こんな感じを意味するのであれば
関数の組み合わせで様々な実現方法はあると思いますが、suubtotal関数を利用するのが一番単純化できると思います

オートフィルタのデータに連番をつける時。

＞suubtotal関数以外

回答Ｎｏ2です。

連番はSUBTOTAL関数を使われるのがよいでしょう。

＞オートフィルタで抽出したデータに連番をつける

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング