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

vba-空白セルに連番を振る-アイキャッチ ExcelVBA

エクセルマクロで、空白セルに連番を振る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列に連番を出力します。


 
 
この記事がお役に立ちますと幸いです。
 

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

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!