オートフィルタで抽出したデータに連番をふりたいと思っています。このサイトで調べた結果、オートフィルタをかけてのオートフィルでの連番入力はできないと知りました。
現在しようとしているのは
A B C
1 クラス NO 氏名
2 1 ○△
3 2 □×
4 1 ★♪
というデータがあり、項目にオートフィルタをかけている状態です。クラスを抽出した場合にそのクラスでの通し番号(連番)を付けたいのです。SUBTOTAL関数だと、連番が表示されるのはオートフィルタで抽出している間だけです。SUBTOTALでつけられた連番を、オートフィルタを解除しても残しておくにはどうしたらよいでしょうか。やはりコピー&ペーストしかないのでしょうか?似たような質問が多々ありますが、コピー&ペースト以外の方法をご存知の方、どうか教えて下さい。
No.3ベストアンサー
- 回答日時:
#01です
>したがってオートフィルタで抽出を解除すれば同じ通し番号がクラス数分あることになります。
これは最初から書いていただきたかったですが(^^;、それならこのようなマクロでもできます。なお#02さんのご指摘のようにSpecialCellsを用いる方が処理が速くなりますが、手抜きして元のマクロを修正するにとどめます。
Sub Macro4()
Dim idx, cnt As Long
Application.ScreenUpdating = False
For idx = 2 To Range("A65536").End(xlUp).Row
If Rows(idx).Hidden = False Then
cnt = cnt + 1
Cells(idx, "B").Value = cnt
End If
Next idx
Application.ScreenUpdating = True
End Sub
No.2
- 回答日時:
.SpecialCells(xlCellTypeVisible)
フィルタ後に 表示されているセルだけ選択する時は
可視セル を選択することをすすめます
全ての行を処理すると時間がかかりますが
可視セルなら検索結果のセルだけ処理できます
フィルタ後
for each myR in range("A1:A500").SpecialCells(xlCellTypeVisible)
msgbox myR.value
next
最終行 = Range("A" & activesheet.rows.count).End(xlUp).Row
65536行以上のシートでも共通で使うことができます
No.1
- 回答日時:
表示されている行のB列に連番を振るマクロサンプルです。
質問文からではどのような使い方をするのかが分かりませんし、前に振った通し番号はどうすればよいのかもわかりません。ですから期待通りの動きはしないかもしれませんが、とりあえずヒントにはなるかもしれません
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
Sub Macro4()
Dim idx, cnt As Long
For idx = 2 To Range("A65536").End(xlUp).Row
If Rows(idx).Hidden Then
Cells(idx, "B").ClearContents
Else
cnt = cnt + 1
Cells(idx, "B").Value = cnt
End If
Next idx
End Sub
この回答への補足
使い方としては、氏名にクラス番号を割り振った後、そのクラスごとにオートフィルタで抽出し、マクロで通し番号をつけるといった使い方です。なので、つけた通し番号はそのまま残したいと思います。したがってオートフィルタで抽出を解除すれば同じ通し番号がクラス数分あることになります。
補足日時:2007/11/20 16:36お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Excel(エクセル) エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう 2 2022/05/01 21:47
- Excel(エクセル) Excelの関数でこんな処理ができますか 1 2023/02/08 13:46
- 一眼レフカメラ プログラムオートといわゆるオートの違いは? 1 2022/09/11 20:20
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) スプレッドシートのチェックボックスとフィルタを連携させたい 2 2022/09/26 18:02
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
エクセルの偶数行(奇数行)の抽出
-
Excel共有ブックのオートフィル...
-
Excelのオートフィルタで非表示...
-
【Excel/関数/条件付き書式】月...
-
スプレッドシートのチェックボ...
-
access マクロでのフィルタの...
-
なぜShowAllDataだとうまく行か...
-
excelオートフィルタの検索条件...
-
エクセル関数で、数字の入った...
-
関数で小数点以下を抽出したい
-
Excelで西暦の日付から「和暦の...
-
Excel時間データの抽出
-
オートフィルタ抽出データに連...
-
オートフィルタで3つ以上の条...
-
ACCESSでスペースの抽出
-
オートフィルタは金額の桁カン...
-
今日の日付のデータをすばやく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
access マクロでのフィルタの...
-
エクセル関数で、数字の入った...
-
オートフィルタで3つ以上の条...
-
Excel共有ブックのオートフィル...
-
エクセルで、条件に一致した行...
-
エクセル・条件付で行を削除す...
-
エクセルにて、フィルタをかけ...
-
データの抽出を教えてください
-
エクセルで検索窓のようなもの...
-
Excelで文字を入力と自動的にフ...
-
Excelオートフィルターで絞り込...
-
オートフィルタで選択したデー...
-
なぜShowAllDataだとうまく行か...
-
ACCESSでスペースの抽出
-
エクセル フィルタで抽出したデ...
おすすめ情報