EXCEL VBA - 流水號

Sub 流水號()

Dim i, j
j = InputBox("請輸入終止值")

For i = 1 To j

ActiveCell.Offset(i - 1, 0).Value = i
ActiveCell.Offset(i - 1, 0).NumberFormatLocal = "[紅色][>50]0;[藍色]0"
Next


End Sub