전체 행 복사 (값이 아닌 수식) VBA

Question

여러 개의 워크 시트 사이에 행을 복사해야하며 행할 수는 있지만 수식 만 복사하고 값은 복사하지 않습니다. 나는 VBA를 수년간 사용하지 않았고, 어떻게해야하는지 생각할 수 없다.

내 기존의 코드는 다음과 같습니다 값과 수식 사이의 선택은 프로세스의 붙여 넣기 반으로 구성되어

Workbooks.Open filename:=NewFN 
    filename = Mid(NewFN, InStrRev(NewFN, "\") + 1) 


     For i = 1 To 14 
      Workbooks(filename).Sheets("sheet1").Rows(i).Copy ThisWorkbook.Sheets("BD Raw Data").Rows(insertRow) 

      insertRow = insertRow + 1 
     Next i 

     Workbooks(filename).Close SaveChanges:=False 

Answer 1

. PasteSpecial 메서드, 특히 xlPasteValues ​​인수를 살펴보십시오.

http://msdn.microsoft.com/en-us/library/aa195818(v=office.11).aspx

Answer 2

당신은 대신 XlPasteType.xlPasteValues 열거를 사용하여 PasteSpecial 방법을 사용할 필요가 Copy Destination

예를 들어,

Workbooks(filename).Sheets("sheet1").Rows(i).Copy 
ThisWorkbook.Sheets("BD Raw Data").Rows(insertRow).PasteSpecial Operation:=xlPasteValues 

Answer 3

시도 그것은

Sub CopyFormulas() 
'http://officevb.com 

Dim sht1 As Worksheet, sht2 As Worksheet 

Set sht1 = Sheets("Sheet1") 
Set sht2 = Sheets("sheet2") 

'copy columns C from sht1 formulas to sht2 

sht1.Range("C:C").Copy 
sht2.Range("C:C").PasteSpecial xlPasteFormulas 

Application.CutCopyMode = False 

End Sub 

이 하위 복사 sht2의 열 C에 sht1에서 열 C의 모든 공식

[]의