发布网友 发布时间:2022-04-24 09:31
共3个回答
热心网友 时间:2022-06-18 12:08
Sub test()
Dim rng As Range, temp$
For Each rng In UsedRange.SpecialCells(xlCellTypeFormulas)
temp = Application.ConvertFormula(rng.Formula, xlA1, xlA1, xlAbsolute)
If rng.HasArray Then rng.FormulaArray = temp Else rng.Formula = temp
Next
End Sub
热心网友 时间:2022-06-18 12:08
楼上的说法有些问题:楼上的说法应该其所指的查找仅是sheet表中内容的查找,而提问者所指为公式本身的查找替换热心网友 时间:2022-06-18 12:09
查找sheet1!E,替换为sheet1!$E$