Копирование форматов настольных таблиц

Question

У меня возникли проблемы с получением форматов сводной таблицы для копирования на новый лист. В основном то, что я пытаюсь сделать это:

someRange.Copy 
someOtherRange.pasteSpecial xlPasteValues 
someOtherRange.pasteSpecial xlPasteFormats 

В принципе, я хочу точную копию текущего вида на сводной таблицы в новом листе, но я просто хочу, ценности и форматирование (и не может быть подключен к сводной таблице). Выполнение этой процедуры вручную дает правильный результат, но по какой-то причине форматирование не копируется, когда я использую тот же подход через vba ... Мысли?

Update: Точный код по запросу:

Application.CutCopyMode = False 
pivotSheet.Range(pivotSheet.usedRange.Cells(1, 2), pivotSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.Columns.Count)).Copy 
updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteValues 
updatesSheet.Range(updatesSheet.Cells(1, 1), updatesSheet.Cells(pivotSheet.usedRange.Rows.Count, pivotSheet.usedRange.Columns.Count)).PasteSpecial xlPasteFormats 
Application.CutCopyMode = False 

Answer 1

испытанный

Option Explicit 

Sub Sample() 
    With Sheets("Sheet1") 
     .Range("H1:I6").Copy 

     With .Range("M7") 
      .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 

      .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ 
      SkipBlanks:=False, Transpose:=False 
     End With 
    End With 
End Sub 

СНАПШОТ

Answer 2

Перед копированием и вставкой вручную начать запись макроса. После того, как вы закончите, прекратите запись и просмотрите записанный код. Вы получите кучу лишних вещей, которые вы можете удалить, но вы также получите правильный синтаксис для выполнения того, что вы пытаетесь сделать.