Sub SpecialAddress()
Dim rng As Range
Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) '定位含有公式的单元格
rng.Select
MsgBox "工作表中有公式的单元格为: " & rng.Address
Set rng = Nothing
End Sub
以上可以获取sheet1工作表内的含有公式的单元格。后面会记录获取sheet对象,并在对应sheet里面获取符合条件的单元格。