运行时错误1004-将值插入数据透视表过滤器

编程问答 2022-08-11

问题描述

我试图根据Excel中的下拉列表将值插入到数据透视表中。 每个数据透视表与一个数据透视图相关，通过与另一工作簿的连接使用相同的数据，并且全部包含在同一工作表中。数据透视表彼此相距5列，并且彼此不能重叠。

我不明白宏是有气质的。可以多次使用（刷新图表），但很快就会抛出以下内容。

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

关闭并重新打开工作簿后，运行时错误消失了10次，但仍再次出现。

下面是当前代码：

Sub refresh_graphs()
With ThisWorkbook.Worksheets("Graphs")
    Range("BD2").Value = Range("F1").Value
    Range("BG2").Value = Range("F1").Value
    Range("BJ2").Value = Range("F1").Value
    Range("BM2").Value = Range("F1").Value
    Range("BP2").Value = Range("F1").Value
    Range("BS2").Value = Range("F1").Value
    Range("BW2").Value = Range("F1").Value
    Range("BZ2").Value = Range("F1").Value
    Range("CC2").Value = Range("F1").Value
    Range("CF2").Value = Range("F1").Value
    Range("CI2").Value = Range("F1").Value
    Range("CL2").Value = Range("F1").Value
    Range("CO2").Value = Range("F1").Value
End With
End Sub

有什么想法吗？ 非常感谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelpivot-chartpivot-tablevba