VBA를 사용하여 모든 수식을 한 시트에서 다른 시트로 복사하면됩니다.

Question

VBA를 사용하여 모든 수식을 한 시트에서 다른 시트로 복사하려고합니다. 나는 수식 이외의 것을 복사하고 싶지 않습니다. 이것을하는 좋은 방법은 무엇입니까?

formula value value 
blank formula value 
blank blank formula 

을 대상 시트가 포함되어 있습니다 :

formula 2 3 
4 formula 6 
7 8 formula 

:

1 2 3 
4 5 6 
7 8 9 

내가 값을 얻을 수있는 대상 시트를 원하는 소스 시트가 포함 된 경우

는, 예와 함께 설명하기

Answer 1

어웨이 정보 :

Sub dural() 
    Dim r As Range, ady As String 
    For Each r In Sheets("Sheet1").Cells.SpecialCells(xlCellTypeFormulas) 
     ady = r.Address 
     r.Copy Sheets("Sheet2").Range(ady) 
    Next 
End Sub