Sub pjCount() Dim r As Long r = Sheets("Inquery").[A65536].End(xlUp).Row ActiveSheet.PivotTables("A3").PivotCache.SourceData = _ "Inquery!R2C2:R" & r & "C4" ActiveSheet.PivotTables("A3").PivotCache
① 打开Excel,选中需要制表的数据,点击“插入”->“数据透视表” ② 出现下列对话框,点击“确定” ③ 再新的“sheet”表内对“数据透视表字段”进行操作 ④ 选中任意数据透视表的内容,点击“分析”->“字段.项目和集”->“计算字段”,填写需要添加字段的名称和公式:(如果不需要添加字段,可忽略这一操作) ⑤ 选中制表数据,点击“
工作中很多地方需要同时处理多个数据表,而且用数据透视表进行排版,排序,计算字段,一个一个的做非常累,这里给出批量处理的方法. 学习VBA之前最好懂一点点VB的基础知识,因为里面的很多语法问题都是由VB来的. Sub 出库数据一键生成数据透视表() '先判定sheet表名称是否正确 If ActiveSheet.name = "出库" Then MsgBox "这个是出库数据,请继续!!" Dim name As String Dim arr As Variant D