首页 文章

使用VBA,将所有公式从一个工作表复制到另一个工作表而没有别的?

提问于
浏览
0

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

1 回答

  • 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
    

相关问题