複製和粘貼篩選表問題

Picture of the two pasted tables 複製和粘貼篩選表問題

我有一子即複製和粘貼一個過濾表，以一個新的工作，但我想它的單元格的值只以上，而不是公式複製。

Sub PasteFilteredTableToTempSheet(ByRef TempWS As Worksheet, ByRef CalcWS As Worksheet)   
CalcWS.Activate 

Dim NewTable As ListObject 
Set NewTable = CalcWS.ListObjects("Full_Bearings_List") 

NewTable.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy _ 
Destination:=TempWS.Range("A1") 

'TempWS.Range("A1").PasteSpecial xlPasteValues 
'Application.CutCopyMode = False 

End Sub

的2行註釋掉沒有做什麼，我想，它複製單元格的值，但在新的工作表中的數據不被格式化成一個表，其中與目標語法，它會自動格式化爲表，但公式也被複制，而不僅僅是值。

該鏈接顯示了兩個示例。我想要左圖像的格式，但只有表格值，而不是公式。

來源

2016-07-28 Robin.P

好的，到目前爲止，我明白你想從一個'Range'設置爲'Table'複製數據。但我很困惑。你是否也希望'Destination'成爲'Table'？如果是的話，你是否希望它被格式化爲來源的原始「表格」？ –

是的，該表格經過初步過濾，然後我想複製新的「過濾表格」並將其粘貼到新的工作表中，格式完全相同，但只有單元格值，而不是公式。希望有道理 –

只需粘貼兩次。

TempWS.Range("A1").PasteSpecial xlPasteValues 
TempWS.Range("A1").PasteSpecial xlPasteFormats

來源

2016-07-28 11:55:38

謝謝！這是完美的 –

很奇怪，請嘗試：

NewTable.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy 
TempWS.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

來源

2016-07-28 11:42:58 nilsman

謝謝，但它似乎沒有工作 –

複製和粘貼篩選表問題

回答

相關問題