Sub 第2步()
'
' 宏1 宏
'
'
Range("A4").Select
Application.CutCopyMode
= False
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("电子电器").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("系统养护").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("改装配件").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("汽车美容").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("座垫脚垫").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("车饰精品").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("安全应急").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("自驾装备").
_
Position = 8
End Sub
Sub 第3步()
'
' 宏3 宏
'
Range("A6").Select
'
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("GPS导航").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载MP3").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载生活电器").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载冰箱").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("充气泵").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("行车记录仪").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载电源").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载净化器").
_
Position = 8
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载吸尘器").
_
Position = 9
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载电器").
_
Position = 10
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("其它车载用品").
_
Position = 11
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("胎压计").
_
Position = 12
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("赠品").
_
Position = 13
Range("A24").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("机油").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防冻液").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("添加剂").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("金属养护").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("附属油").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("玻璃水").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("系统清洁").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空调清洗剂").
_
Position = 8
Range("A34").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("机油滤").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空气滤").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("火花塞").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车灯").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防爆膜").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("刹车片").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("燃油滤").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空调滤").
_
Position = 8
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("雨刷").
_
Position = 9
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("喇叭").
_
Position = 10
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("改装小件").
_
Position = 11
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("其他配件").
_
Position = 12
Range("A44").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("美容车蜡").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("漆面修复").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("轮胎轮毂洗护").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("洗车工具").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("擦车巾/海绵").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("封釉镀膜").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("内饰洗护").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("洗车液").
_
Position = 8
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("掸子").
_
Position = 9
Range("A55").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("四季垫").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("凉垫").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用座套").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用脚垫").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用后备箱垫").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("多功能座垫").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("毛垫").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用座套").
_
Position = 8
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用脚垫").
_
Position = 9
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用后备箱垫").
_
Position = 10
Range("A67").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("香水").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("方向盘套").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("摆挂").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("装饰布艺").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空气净化").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("颈枕腰靠").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("杂物收纳").
_
Position = 7
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("功能精品").
_
Position = 8
Range("A77").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("儿童安全座椅").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("轮胎安全").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("救援工具").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防盗锁").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("故障维修").
_
Position = 5
Range("A82").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("自驾照明").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("遮阳挡雪挡").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("保温箱").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("旅途生活用品").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车衣").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("收纳箱").
_
Position = 6
ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("行李网").
_
Position = 7
End Sub
Sub 第1步()
'
' 宏4 宏
'
'
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("北京分公司").
_
Position = 1
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("上海分公司").
_
Position = 2
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("广州分公司").
_
Position = 3
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("成都分公司").
_
Position = 4
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("武汉分公司").
_
Position = 5
ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("沈阳分公司").
_
Position = 6
End Sub
加载中,请稍候......