Excelで非表示の行をスキップして連続した番号を埋めるにはどうすればよいですか？

フィルタリングされたデータ範囲があり、次のスクリーンショットに示すように、フィルタリングされた空白セルに連続した番号を入力したいとします。この場合、通常、フィルハンドルをドラッグしてもセルが正しく埋められません。この記事では、Excelでこのタスクを解決するためのいくつかの良い方法について説明します。

数式を使用して非表示の行をスキップして連続した番号を埋める

VBAコードを使用して非表示の行をスキップして連続した番号を埋める

Kutools for Excelを使用して非表示の行をスキップして連続した番号を埋める

数式を使用して非表示の行をスキップして連続した番号を埋める

表示されているセルにのみ連続した番号を埋めるために、簡単な数式が役立つかもしれません。以下の手順を行ってください：

1. 連続した番号を埋めたい最初のセル（この例ではA3）に、この数式: =SUBTOTAL(103,$B$3:$B3)（B3は、連続した番号を開始したいセルに対応する表示されているセルです）を入力し、Enterキーを押します。すると、数字の1が表示されます。スクリーンショットをご覧ください：

2. 次に、セルA3を選択し、連続した番号を埋めたいセルまでフィルハンドルをドラッグします。スクリーンショットをご覧ください：

VBAコードを使用して非表示の行をスキップして連続した番号を埋める

次のVBAコードも、表示されているセルにのみ連続した番号を埋めるのに役立ちます。以下の手順を行ってください：

1. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 非表示の行をスキップして連続した番号を埋める：

Sub FillValue()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xVal As Long
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = xRg.SpecialCells(xlVisible)
    Debug.Print xRg.Address
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xVal + 1
        xCell = xVal
    Next
End Sub

3. 次に、F5キーを押してこのコードを実行すると、埋めたいデータ範囲を選択するように促すボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、連続した番号が表示されているセルにのみ埋められます。

Kutools for Excelを使用して非表示の行をスキップして連続した番号を埋める

上記の2つの方法は、表示されているセルに連続した番号を埋めるのに役立ちますが、AA-0001-BB、AA-0002-BB、AA-0003-BB…のような連続した番号を埋めたい場合は、これらの方法は機能しません。しかし、ご心配なく、Kutools for Excelの「シーケンス番号の挿入」機能が迅速かつ簡単にそれを完了するのに役立ちます。

Kutools for Excelをインストール後、以下の手順を行ってください：

1. 連続した文字列を埋めたいセルを選択します。

2. 「Kutools」>「挿入」>「シーケンス番号の挿入」をクリックし、 「シーケンス番号の挿入」ダイアログボックスで「新規」ボタンをクリックします。スクリーンショットをご覧ください：

3. 拡張されたダイアログボックスで、左下のセクションに必要な設定を行い、同時に右下のペインでシーケンスをプレビューできます。スクリーンショットをご覧ください：

4. 設定が完了したら、「追加」ボタンをクリックして新しい項目を上記のリストボックスに保存します。スクリーンショットをご覧ください：

6. 作成した項目を選択し、「範囲を埋める」ボタンをクリックすると、シーケンス文字列が表示されているセルにのみ埋められます。スクリーンショットをご覧ください：

今すぐKutools for Excelをダウンロードして無料でお試しください！

デモ： Kutools for Excelを使用して非表示の行をスキップして連続した番号を埋める