使用Excle自带的工具栏图标填充 填充效果图如下: 代码如下: Sub 自动填充序号() Dim A As CommandBar '代表容器应用程序中的一个命令栏 Dim B As CommandBarControl '代表一个命令栏控件 Dim i As Long Cells.Clear '清除所有单元格 For Each myshape In Worksheets(1).Shapes If myshape.Name <> "myButton" Then myshape
工作中很多地方需要同时处理多个数据表,而且用数据透视表进行排版,排序,计算字段,一个一个的做非常累,这里给出批量处理的方法. 学习VBA之前最好懂一点点VB的基础知识,因为里面的很多语法问题都是由VB来的. Sub 出库数据一键生成数据透视表() '先判定sheet表名称是否正确 If ActiveSheet.name = "出库" Then MsgBox "这个是出库数据,请继续!!" Dim name As String Dim arr As Variant D