使用VBA筛选数据透视表前10项时出现Error 1004错误

你遇到的Error 1004是因为两个核心问题：

1. AutoShow方法调用对象错误：AutoShow不能直接作用于数据透视表的数据字段（你重命名的Total Ventas是数据字段），必须作用于行字段或列字段（也就是你用来分类的维度字段，比如日期字段）。
2. VBA参数语法错误：命名参数需要用:=而非=，代码里的Count=10要改成Count:=10。

修正后的代码示例 #

假设你用来分类的行字段是日期字段（比如字段名为Fecha），修正后的代码如下：

'Ventas 代表销售额，Total Ventas 代表总销售额
With .PivotFields("Ventas")
    .Orientation = xlDataField
    .Position = 1
    .Function = xlSum
    .NumberFormat = "#,##0"
    .Name = "Total Ventas"
End With

' 替换成你透视表中实际的行/列维度字段名称，比如日期字段"Fecha"
ptTable.PivotFields("Fecha").AutoShow _
    Type:=xlAutomatic, _
    Range:=xlTop, _
    Count:=10, _
    Field:="Total Ventas"

关键说明 #

• 将代码中的"Fecha"替换为你透视表里用于分类的行字段名称（即你按日期筛选的那个字段）。
• AutoShow的逻辑是：基于指定的数据字段（Total Ventas），对行/列维度字段的项进行筛选，保留Top 10的项。

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir