【Excel VBA】値の入っているセルに連番を振る方法

はじめに

既に値が入っているセルに連番を振りたいと思ったことはありませんか。そのような場合、次のコードで実現することができます。

連番を振るコード

Sub test()
    
    Dim cnt As Long
    cnt = 1
    
    Dim s As Variant
    For Each s In Selection.Cells
        
        Cells(s.Row, s.Column).Value = cnt & "." & Cells(s.Row, s.Column).Value
        cnt = cnt + 1
        
    Next
        
End Sub

Sub test()

Dim cnt As Long

cnt = 1

Dim s As Variant

For Each s In Selection.Cells

Cells(s.Row, s.Column).Value = cnt & "." & Cells(s.Row, s.Column).Value

cnt = cnt + 1

End Sub

実行結果（連番を付与）

選択範囲のセルに連番が書き込まれました！

先ほどの連番を消すコード

先ほど書き込んだ連番を消したいときは以下のコードで消すことができます。

Sub test2()
    
    Dim pos As Long
    Dim s As Variant
    For Each s In Selection.Cells
    
        ' 最初のカンマの位置を取得
        pos = InStr(Cells(s.Row, s.Column).Value, ".")
        Cells(s.Row, s.Column).Value = Mid(Cells(s.Row, s.Column).Value, pos + 1)
    
    Next
    
End Sub