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
4

1 に答える 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
于 2013-08-20T16:10:02.630 に答える