Question

我目前有一个工作簿和一系列代码，这些代码可根据工作簿中的数据创建数据透视表。

我的代码之一将完成的数据透视表复制并从相关工作表粘贴到另一个工作表，对数据进行排序，删除第一行（总计），然后将数据透视表中的数据粘贴到表格上工作表。

数据透视表本身是两列，标题为“行标签”和“呼叫号码计数”。

到目前为止，我的代码运行良好。我目前收到以下错误：

“运行时错误1004无法获取数据透视表字段类的数据透视表属性”行“ .PivotItems（“”）。Visible= False突出显示为黄色。

我为什么会收到此错误的任何想法？


Sheets("Pivottable").Select
    Range("A2").Select
    With ActiveSheet.PivotTables("PRIMEPivotTable").PivotFields("Calling Number")
        .PivotItems("").Visible = False
    End With
    Columns("A:B").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("N1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("N:O").EntireColumn.AutoFit
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add2 Key:=Range( _
        "O2:O100000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet3").Sort
        .SetRange Range("N1:O100000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("N2:O2").Select
    Selection.Copy
    Range("F1").Select
    ActiveSheet.Paste
    Range("N2:O2").Select
    Selection.Delete Shift:=xlUp
    Range("N2:N21").Select
    Selection.Copy
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O2:O21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(RC[-1]/R1C[1])"
    Selection.AutoFill Destination:=Range("F4:F23")
    Range("F4:F23").Select

End Sub

复制和粘贴数据透视表的问题

0 个答案: