ExcelVBA小程序 -生成序号

打开宏窗口，复制粘贴以下代码：

Sub 生成序号()
On Error Resume Next
Dim l As Integer, i As Integer

l = InputBox("请输入序号所在的列号（1-n）")
Columns(l).Clear

For i = 1 To 101
Cells(1, l) = "序号"
Cells(i, l) = i - 1
Next
With ActiveSheet.UsedRange
    .NumberFormatLocal = "G/通用格式"
    .Value = .Value
    .VerticalAlignment = xlVAlignCenter
    .HorizontalAlignment = xlHAlignCenter
End With

End Sub

单击执行。