使用VBA，將所有公式從一張表複製到另一張，而沒有其他的東西？

Question

我想使用VBA將所有公式從一張表複製到另一張。我不想複製公式以外的任何內容。什麼是這樣做的好方法？

爲了舉個例子來說，如果源表包含：

formula value value 
blank formula value 
blank blank formula 

和目標表包含：

1 2 3 
4 5 6 
7 8 9 

我希望目標片獲得的值：

formula 2 3 
4 formula 6 
7 8 formula 

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