Excelでフィルター後に自動番号付けまたは再番号付けする方法は？
ご存知のとおり、シリーズ番号のリストを含むデータをフィルタリングした後、ワークシートの行番号は元の番号と同じように表示され、自動的に番号が付け直されることはありません。 ただし、次のスクリーンショットに示すように、フィルター処理されたワークシートの行に順番に番号を付け直したい場合があります。 そしてこの記事では、Excelでフィルター処理後に自動番号付けまたは再番号付けを行う方法について説明します。
自動番号付けまたはVBAコードによるフィルター後の再番号付け
Kutools forExcelを使用したフィルター後の自動番号付けまたは再番号付け
 |
 |
 |
自動番号付けまたはVBAコードによるフィルター後の再番号付け
フィルタリングされたステータスでは、自動入力ハンドルを適用して数列を入力することはできません。番号をXNUMXつずつ入力するだけで入力できます。 ただし、番号の付け直しが必要なセルが多数ある場合、これは面倒で時間がかかります。 ここでは、このタスクを解決するためのVBAコードを紹介します。
1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.
2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ.
VBAコード：自動番号付けまたはフィルター後の再番号付け
Sub Renumbering()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
xIndex = 1
For Each Rng In WorkRng
Rng.Value = xIndex
xIndex = xIndex + 1
Next
End Sub
3。 コードを貼り付けたら、を押してください F5 このコードを実行するためのキーを押すと、プロンプトボックスが表示され、行に自動番号を付けたり、番号を付け直したりする範囲セルを選択するように通知されます。スクリーンショットを参照してください。
4。 次に、をクリックします OK、および選択した範囲セルは、以下のスクリーンショットに示すように順番に番号が付け直されています。
Note：このコードは、フィルター機能をキャンセルすると、元の系列の行番号を破棄します。 したがって、最初にデータをバックアップする必要があります。
Kutools forExcelを使用したフィルター後の自動番号付けまたは再番号付け
あなたがインストールしている場合 Kutools for Excel、その強力な シーケンス番号を挿入 この機能では、フィルタリングされたデータにシーケンス番号をすばやく簡単に挿入できます。
| Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. |
インストールした後 Kutools for Excel、次のようにしてください。
1。 フィルタリングされたデータの番号を付け直すセルを選択します。
2。 次に、をクリックします クツール > インセット > シーケンス番号を挿入、スクリーンショットを参照してください：
3. それから飛び出した シーケンス番号を挿入 ダイアログボックスで、をクリックします。 新作 ボタン、スクリーンショットを参照してください：
4。 次に、左下のセクションで必要に応じてシーケンスリスト番号を作成します。スクリーンショットを参照してください。
5。 シーケンスを設定したら、をクリックします Add ボタンをクリックすると、シーケンス項目がダイアログボックスに追加されます。スクリーンショットを参照してください。
6。 そして、 充填範囲、 フィルタリングされたデータは一度に番号が付け直されました。 スクリーンショットを参照してください：
今すぐExcel用のKutoolsをダウンロードして無料トライアル！
デモ：Kutools forExcelを使用したフィルター後の自動番号付けまたは再番号付け
関連記事：
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
