Sub Áгöµ±Ç°¹¤×÷±íµÄ¹«Ê½()
Dim XR As Range, YR As Range
Set XR = Cells.SpecialCells(xlCellTypeFormulas, 23)
Sheets.Add
Cells.NumberFormatLocal = "@"
For Each YR In XR
Cells(YR.Row, YR.Column) = YR.FormulaLocal
Next
End Sub
在新工作表中列出当前工作表的公式:
Sub Text()
Dim XR As Range, YR As Range
Set XR = Cells.SpecialCells(xlCellTypeFormulas, 23)
Sheets.Add
Cells.NumberFormatLocal = "@"
For Each YR In XR
Cells(YR.Row, YR.Column) = YR.FormulaLocal
Next
End Sub