0
Helperワークシートにいくつかの範囲をコピーしたいとします。表自動拡張機能をオフにするにはどうすればよいですか？
実際にコピーした範囲を再フォーマットして、Format as Tableに設定します。
それぞれの範囲には、非希望のタイトルが含まれています。Table format。
私は以下のコードを試してみました：私はコピーする最初の範囲を実行するとき
ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(UpLeft,1).Address ":" & Cells(DownRight, 20).Address), , xlYes).Name = "Table" & i
すべてが良いですが、私は自動的にタイトルやヘッダーを拡張し、邪魔してきたformat`コピー次の範囲、前」テーブルを行うとき電流レンジ。
私は
WS.HPageBreaks.Add Before:=Rows(sh + 1).
とページブレーキを
(IIf(WS.PageSetup.Orientation = xlLandscape, 591, 852) - WS.PageSetup.TopMargin - WS.PageSetup.BottomMargin) * _ (100/WS.PageSetup.Zoom) - 1
を使用してコピーされた各範囲の終了を追加し、全印刷領域の高さにそれぞれコピーされた範囲の大きさの終わりを設定していた私は、各範囲を持っている必要がありますページの先頭から開始するので、貼り付けの間にギャップを残すことはできません。
特定のワークシートでテーブル自動拡張を防止するにはどうすればよいですか？
あなたはpastingsの間に十分な隙間を残していますか？そして、それぞれ新しいオブジェクトをペーストしますか？ – QHarr
いいえ、（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）'）を追加します。そして、私はそれぞれの範囲にページの先頭から始める必要があるので、ペーストの間にギャップを残すことはできません。 – mgae2m