首页 › 实战技术 › 自动生成序列号VBA

nnsea 发表于 2020-3-8 12:19:41

自动生成序列号VBA

Sub AddSerialNumbers()
Dim i As Integer
On Error GoTo Last
i = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last: Exit Sub
End Sub

查看完整版本: 自动生成序列号VBA