[[20050331102556]] 『オートフィルタで抽出した項目にナンバー』(さちよん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『オートフィルタで抽出した項目にナンバー』(さちよん)

いつもお世話になっております。
初歩的な質問で大変申し訳ないのですが、
1列目にオートフィルタを設定して条件抽出した項目だけに
通しナンバーをふることは可能なのでしょうか?
過去ログなどで調べてみたのですが、
うまく探し出せませんでした。

  A      

1 世田谷区  

2 渋谷区

3 品川区

4 目黒区

5 世田谷区

6 世田谷区






計500件くらいあります。

とあったときにA列で「世田谷区」のみを抽出したときに「世田谷区」の通し番号をA列に列を挿入しておこないたいのですが教えてください。よろしくお願いします(さちよん)


 こちらが、参考になるように思います。↓                    (LOOKUP)
[[20031030182105]] 『抽出したデータに連番を付与したい』(nana) 

 お邪魔します。
ただの1・2・3・4・という連番でよければ
オートフィルタで抽出した後に連番を振りたい範囲を選択してから
実行してください。
Option Explicit
Sub てすと()
Dim C As Range, i As Long
For Each C In Selection.SpecialCells(xlCellTypeVisible)
    i = i + 1
    C.Value = i
Next
End Sub
(SoulMan)


 別案として、
 挿入したA列に =COUNTIF(B$1:B1,B1) として下方に必要数コピーしておくと
 フィルタした項目だけの連番になります。

 (川野鮎太郎)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.