【VBA】自动填充序号

使用Excle自带的工具栏图标填充

填充效果图如下：

代码如下：

Sub 自动填充序号()
    Dim A As CommandBar '代表容器应用程序中的一个命令栏
    Dim B As CommandBarControl '代表一个命令栏控件
    Dim i As Long
    Cells.Clear &