用值替换数据透视表以过滤和删除行

Question

我正在尝试围绕来自数据透视表的一些数据构建电子表格，但我无法过滤和删除行。

我已经为表格尝试了.Value = .Value，但我收到了错误消息

“我们无法对选定的单元格进行此更改，因为它会影响数据透视表...”（运行时错误“1004”）

    With ws
        FinalRow = .Cells(Cells.Rows.Count, "B").End(xlUp).Row
        With .Range("B1:C" & FinalRow)'Pivot table range
            .Value = .Value
        End With

        For iCntr = FinalRow To 1 Step -1
            If Rows(iCntr).Hidden Then
                Rows(iCntr).EntireRow.Delete
            End If
        Next iCntr
    End With
End With

Answer 1

我不认为你可以只是.Value 那样的范围。您需要删除枢轴 - 可能通过存储数据、清除范围然后重新写入数据。

试试这个：

Dim tmp As Variant
With ws
    FinalRow = .Cells(Cells.Rows.Count, "B").End(xlUp).Row
    With .Range("B1:C" & FinalRow) 'Pivot table range
        tmp = .Value
        .ClearContents
        .Value = tmp
    End With
End With

顺便说一句，如果您“隐藏”了数据透视表中的项目，它们会从表格中删除，而不是真正隐藏 - 所以我怀疑以后不需要删除..