如何關閉表格自動擴展功能？

我想複製Helper工作表中的一些範圍。如何關閉表格自動擴展功能？

事實上，我想重新格式化複製的範圍，並將它們設置爲Format as Table。

每個範圍包含一個標題想要是非Table format。

我嘗試下面的代碼：

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

一切都很好，當我第一次執行範圍複製，但是當我做複製下一個範圍，上一個「表format`已經自動擴展和擾亂的標題和頭當前範圍。

我一直在使用

(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).

頁面制動設置每個複製的範圍大小，整個打印區域高度的結束，我需要每個範圍都從頁面頂部開始，所以我無法在粘貼之間留下空白

如何防止表在特定工作表中自動展開？

來源

2017-10-21 mgae2m

你離開pastings之間有足夠的差距？並且每個都粘貼一個新對象？ – QHarr

不，我已經使用'（IIf（WS.PageSetup.Orientation = xlLandscape，591,852） - WS.PageSetup.TopMargin - WS.PageSetup.BottomMargin）將每個複製範圍大小的末尾設置爲整個打印區域'Height' （100/WS.PageSetup.Zoom） - 1'並在每個複製範圍的末尾添加一個Page brake（'WS.HPageBreaks.Add Before：= Rows（sh + 1）'）。我需要每個範圍都從頁面頂部開始，所以我不能在粘貼之間留下空白。 – mgae2m

打開自動擴展關閉：

Application.AutoCorrect.AutoExpandListRange = False

來源

2017-10-21 22:39:05 itsLex

如何關閉表格自動擴展功能？

回答

相關問題