【エクセルマクロ】空白セルに連番を振る：コピペで使えるコード

エクセルマクロで、空白セルに連番を振るVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

空白セルに連番を振る

以下のマクロを実行すると、空白セルに連続した数値を入れます。

Sub 空白行に連番を入力()

Dim i As Long
Dim LastRow As Long
Dim Cnt As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '開始番号
    Cnt = 1
    
    Application.ScreenUpdating = False

    '1～最終行までループ
    For i = 1 To LastRow
    
        'A列が空白だったら
        If Cells(i, 1) = "" Then
        
            'B列に連番入力
            Cells(i, 2) = Cnt
            
            '連番更新
            Cnt = Cnt + 1
            
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

マクロ実行後

A列が空欄の場合、B列に連番を出力します。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】連番処理を自動化する使用例まとめ
 

【エクセルマクロ】連番処理を自動化する：超便利７選

...

kirinote.com

2022.02.10