工作中很多地方需要同时处理多个数据表,而且用数据透视表进行排版,排序,计算字段,一个一个的做非常累,这里给出批量处理的方法. 学习VBA之前最好懂一点点VB的基础知识,因为里面的很多语法问题都是由VB来的. Sub 出库数据一键生成数据透视表() '先判定sheet表名称是否正确 If ActiveSheet.name = "出库" Then MsgBox "这个是出库数据,请继续!!" Dim name As String Dim arr As Variant D
SQL通过pivot进行行列转换 数据透视 可直接在sql server 运行 传统操作 和 pivot create table XKCl (name nchar(10) not null, 学科 nchar(10) not null, 成绩 int not null, 考试 nchar(10) not null ) insert into dbo.XKCJ values ('张三','语文',79,'期中') insert into dbo.XKCJ values ('李四','语文',85