无法完成表述：表不能与数据透视表、查询结果、表、合并单元格或 XML 映射重叠

编程问答 2022-05-17

问题描述

您好，我遇到错误“无法完成表述：表格不能与数据透视表、查询结果、表格、合并单元格或 XML 映射重叠” 它一直工作到今天，现在已经坏了，这是什么意思。请帮帮我。

  Sub copyCurrentRegion()
Application.ScreenUpdating = False
Application.EnableEvents = False

Application.Calculation = xlCalculationManual
    Sheets("owssvr").Range("Table_owssvr").ListObject.QueryTable.Refresh BackgroundQuery:=False 'refresh and copy data base to the main view
    Range("Table_owssvr[#All]").copy Sheets("NA").Range("A6")
    Sheets("NA").Columns("A:AC").EntireColumn.AutoFit

Dim c As Range

    For Each c In Range("A5:ae5").Cells
        If c.VALUE = "y" Then
            c.EntireColumn.Hidden = True     'hide all  columns where in range a5 to ae5 we have IN CELLS value x (maybe we will need this column). If u wana unhide this columns then  push other button :)
        End If
    Next c

If Weekday(Now()) = vbMonday Then
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,_
    Criteria1:=">=" & CLng(Date) - 4,Operator:=xlAnd,Criteria2:="<=" & CLng(Date)
Else
If Weekday(Now()) = vbTuesday Then
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,Criteria2:="<=" & CLng(Date)       ' filter fresh date(last date cut 24 h)
Else
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=12,_
    Criteria1:=">=" & CLng(Date) - 2,Criteria2:="<=" & CLng(Date)
End If
End If
With Sheets("NA")
        .ListObjects(1).Name = "europe"
End With
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

解决方法

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

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

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

excelexcelexcel-tablesmapingvbavba7