🔄
AddSerialNumbers
データ処理選択した先頭セルから下方向に連番を追加します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 連番を追加したい先頭セルを選択して AddSerialNumbers を実行します
💻 VBAコード
' AddSerialNumbers
' -----------------
' Macro Name: AddSerialNumbers
' Description: 選択した先頭セルから下方向に連番を追加します
' Parameters: なし
' Returns: なし
' Usage: 連番を追加したい先頭セルを選択して AddSerialNumbers を実行します
' -----------------
Sub AddSerialNumbers()
On Error GoTo ErrorHandler
Dim startCell As Range
Dim countStr As String
Dim totalRows As Long
Dim i As Long
If TypeName(Selection) <> "Range" Then
MsgBox "開始セルを選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set startCell = Selection.Cells(1, 1)
countStr = InputBox("連番の件数を入力してください", "件数", "10")
If countStr = "" Then Exit Sub
If Not IsNumeric(countStr) Then
MsgBox "数値を入力してください", vbCritical, "エラー"
Exit Sub
End If
totalRows = CLng(countStr)
For i = 1 To totalRows
startCell.Offset(i - 1, 0).Value = i
Next i
MsgBox totalRows & " 件の連番を追加しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub