如何关闭表自动扩展功能？

Question

我想在Helper工作表中复制一些范围。

确实，我希望重新格式化复制范围并将其设置为Format as Table。

每个范围都包含一个想要非Table format的标题。

我尝试了以下代码：

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(UpLeft,1).Address ":" & Cells(DownRight, 20).Address), , xlYes).Name = "Table" & i

当我执行第一个范围复制时，一切都很好，但是当我复制下一个范围时，上一个'表格格式'会自动扩展并干扰当前范围的标题和标题。

我已使用

将每个复制范围大小的结尾设置为整个打印区域高度

(IIf(WS.PageSetup.Orientation = xlLandscape, 591, 852) - WS.PageSetup.TopMargin - WS.PageSetup.BottomMargin) * _ (100 / WS.PageSetup.Zoom) - 1 

并使用

添加每个复制范围的结尾

WS.HPageBreaks.Add Before:=Rows(sh + 1). 

我需要每个范围从页面顶部开始，所以我不能在粘贴之间留下空白

如何在特定工作表中阻止表格自动展开？

Answer 1

关闭autoexpand：

Application.AutoCorrect.AutoExpandListRange = False