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、および選択した範囲セルは、以下のスクリーンショットに示すように順番に番号が付け直されています。

注意：このコードは、フィルター機能をキャンセルすると、元の系列の行番号を破棄します。 したがって、最初にデータをバックアップする必要があります。

Kutools forExcelを使用したフィルター後の自動番号付けまたは再番号付け

あなたがインストールしている場合 Kutools for Excel、その強力な シーケンス番号を挿入 この機能では、フィルタリングされたデータにシーケンス番号をすばやく簡単に挿入できます。

インストールした後 Kutools for Excel、次のようにしてください。

1。 フィルタリングされたデータの番号を付け直すセルを選択します。

2。 次に、をクリックします クツール > インセット > シーケンス番号を挿入、スクリーンショットを参照してください：

3. それから飛び出した シーケンス番号を挿入 ダイアログボックスで、をクリックします。 New ボタン、スクリーンショットを参照してください：

4。 次に、左下のセクションで必要に応じてシーケンスリスト番号を作成します。スクリーンショットを参照してください。

5。 シーケンスを設定したら、をクリックします Add ボタンをクリックすると、シーケンス項目がダイアログボックスに追加されます。スクリーンショットを参照してください。

6。 そして、 充填範囲、  フィルタリングされたデータは一度に番号が付け直されました。 スクリーンショットを参照してください：

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

デモ：Kutools forExcelを使用したフィルター後の自動番号付けまたは再番号付け

関連記事：

Excelで結合されたセルに自動番号を付ける方法は？