【VBA】自动填充序号

使用Excle自带的工具栏图标填充 填充效果图如下： 代码如下： Sub 自动填充序号() Dim A As CommandBar '代表容器应用程序中的一个命令栏 Dim B As CommandBarControl '代表一个命令栏控件 Dim i As Long Cells.Clear '清除所有单元格 For Each myshape In Work

>>阅读原文<<