请教大神，超级感谢

patrick009

刚刚入门学习，问题低级

我每天从公司 数据软件 下载好表格做统计，所以每天都做的重复性工作，

------------------------------更新---------------------------------
我需求
1、下载好表格，自动启用前一天的 宏，生成数据透视表，下面是我录制的宏

    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$27").AutoFilter Field:=12, Criteria1:=Array("1", _
        "10", "12", "2", "3", "4", "5", "7", "8"), Operator:=xlFilterValues
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R27C13", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="Sheet1!R5C15", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion15
    Sheets("Sheet1").Select
    Cells(5, 15).Select
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("日期")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("颜色")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("渠道名称")
        .Orientation = xlColumnField
        .Position = 2
    End With
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("销量"), "求和项:销量", xlSum


2、我有筛选的需求，销售量是0的，我要去掉。但是每天的销售量、是变化的，明天可能有销售量为 13 15 17 的值，宏应该怎么写？
录制的宏是这样的： Criteria1:=Array("1", "10", "12", "2", "3", "4", "5", "7", "8")


每天的销售数据条数也是变化的，宏 怎么写？
录制的宏：ActiveSheet.Range("$A$1:$Q$27")
今天是27条销售记录，明天可能是30条、50条，数据总量不同，
每天数据总量是变化的，所以，宏怎么写，实现根据表格选定所有数据？

谢谢各位！

xyxcc177

云里雾里，不知要做什么？

alstar

没明白，去0值可以在设置里啊。设置不显示0值。或许是我理解能力太差了。没看懂啥意思。

不知道为什么

欢迎新人

论坛求助，需要上传Excel表附件，详细说明你的需求，最好再模拟你需要的结果。这样会更有效的得到帮助！

patrick009

不知道为什么 发表于 2018-9-10 23:16
欢迎新人

论坛求助，需要上传Excel表附件，详细说明你的需求，最好再模拟你需要的结果。这样会更有效的 ...

好的好的~
学习了

patrick009

不知道为什么 发表于 2018-9-10 23:16
欢迎新人

论坛求助，需要上传Excel表附件，详细说明你的需求，最好再模拟你需要的结果。这样会更有效的 ...

好的、
谢谢大大