Excel 使用VBA，将所有公式从一张图纸复制到另一张图纸，而不复制其他图纸？

我想使用VBA将所有公式从一张图纸复制到另一张图纸。我不想复制公式以外的任何东西。做这件事的好方法是什么

举例说明，如果源工作表包含：

formula value   value
blank   formula value
blank   blank   formula

1   2   3
4   5   6
7   8   9

目标工作表包含：

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

那么：

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