使用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