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
1 回答
怎么样: