복사 및 붙여 넣기 필터링 표 문제

Question

나는 새 워크 시트에 복사 및 붙여 넣기 필터링 된 테이블, 그러나 나는 단지, NOT 식을 통해 셀의 값을 복사하려는 하위 있습니다.

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 개 개의 라인은 내가 셀 값하지만, 그 사본을 원하는 일을하지 않는 주석 데이터가 대상과 마찬가지로 것은이 자동으로 포맷 구문 테이블로 포맷되지 않은 새 워크 시트에 table하지만 수식도 복사되며 값만 복사되지는 않습니다.

링크는 두 가지 예를 보여줍니다. 왼쪽 이미지의 형식을 원하지만 테이블 값만 있으면되고 수식은 필요 없습니다.

Answer 1

그냥 두 번 붙여 넣습니다.

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

Answer 2

그것은 이상한 시도 :

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