我正在Excel2003中编写一个宏来查找工作簿中包含公式的所有单元格,并在不同工作表的几列中输出它们的地址和公式 .
我知道我可以使用单个细胞显示公式
Public Function ShowFormula(cell As Range) As String
ShowFormula = cell.Formula
End Function
哪个工作得很好,但由于我不想手工找到所有的单元格,我写了下面的宏来找到它们对我来说
Sub Macro2()
Dim i As Integer
Dim targetCells As Range
Dim cell As Range
Dim referenceRange As Range
Dim thisSheet As Worksheet
Set referenceRange = ActiveSheet.Range("CA1")
With referenceRange
For Each thisSheet In ThisWorkbook.Sheets
If thisSheet.Index >= referenceRange.Parent.Index Then
Set targetCells = thisSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
For Each cell In targetCells
If cell.HasFormula Then
.Offset(i, 0).Value = thisSheet.Name
.Offset(i, 1).Value = cell.Address
.Offset(i, 2).Value = CStr(cell.Formula)
i = i + 1
End If
Next
End If
Next
End With
End Sub
它可以很好地找到所有单元格,但不会将公式显示为文本,列表会显示公式结果 .
将公式输出为文本而不是公式,我错过了什么?
1 回答
试试这个:
此外,这将使事情变得更快 . 代替
尝试