《エクセル2000》オートフィルタで寄せたものに連番を振りたいのですが

質問

オートフィルタの条件で抽出したデータのみ連番を振りたいのですが、上から1、2、3と入力し後はオートフィルで入力しようとしても全部1になってしまい、うまくいきません。

どうすればいいのでしょう？

回答No.5

tarodaro · ベストアンサー

>これがうまくいきません
確かに... orz

申し訳ないですが、問題が解決しない場合、下記コードを
標準モジュールに貼り付けて実行してください
(事前に対象範囲を選択しておきます)

Sub Macro1()
Dim r As Range
Dim t As Range

Application.ScreenUpdating = False
Set r = Selection.SpecialCells(xlCellTypeVisible)
For Each t In r
t = t.Value
Next
Application.ScreenUpdating = True
End Sub

番号を振るマクロは、いまいち動作に確信が持てなかったので保留です
ごめんなさい

お礼

>確かに... orz
ああっ、そんなに落ち込まないで下さい（笑）
お陰様で解決しました。こちらのマクロも永久保存です。
もう少し締め切らずにおきますが、本当にありがとうございました。

回答No.2

tarodaro

セルA2以降連番を振る場合、セルA2に
=SUBTOTAL(3,$B$2:B2)
などとして必要な行数分フィルしてください
$B$2:B2 の部分には空白セルを含まない列を
指定します

お礼

ご回答ありがとうございます。
おお、確かにこれなら連番になりますね。
さらにこのナンバリングを値としてコピーペーストしたい（フィルターを解除してもその番号が残るようにしたい）のですが、これがうまくいきません。
引き続き申し訳ありませんが、何かいい手はございますでしょうか。

回答No.1

heisenberg

次の方法ではどうですか？
１．編集→ジャンプ→セル選択→可視セル→コピー→貼り付け
２．「１」で貼り付けたデータに連番を振る

　以上で可能です。

お礼

ご回答ありがとうございます。
が、こういう意味ではなく、あくまで可視ではない行を残したまま、可視セルの行のみ連番を振りたいのです。
問題文の書き方が悪くてすみません。