Question

我正在研究为数据表创建数据透视表的VBA。但是，我已经能够正确输入行字段。我还能够为所有数据带来列的值，但是我想过滤为特定的值。这样只能引入那些数据头包含“ GL”或“ NT”的

Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
    With pt.PivotFields(I)
        If .Orientation = 0 Then .Orientation = xlDataField
    End With
    Next
Next

我不希望引入所有数据，而只引入标题包含“ GL”或“ NT”的数据

Answer 1

我认为您只需要添加另一个条件即可检查字段名称。像这样：

If .Orientation = 0 and (.Name like *GL* or .Name like *NT*) Then .Orientation = xlDataField

如何仅将某些包含字母“ A”的列/数据字段引入数据透视表？

1 个答案: