表格智创网's Archiver
首页
›
实战技术
› 自动生成序列号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
页:
[1]
查看完整版本:
自动生成序列号VBA