Question

我正在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

它可以很好地找到所有单元格，但不会将公式显示为文本，列表会显示公式结果。

将公式输出为文本而不是公式，我缺少什么？

Answer 1

试试这个：

.Offset(i, 2).Value = "'" & CStr(cell.Formula)

此外，这会使事情变得更快。而不是

For Each thisSheet In ThisWorkbook.Sheets
    If thisSheet.Index >= referenceRange.Parent.Index Then

试

For j = referenceRange.Parent.Index to Sheets.Count
    Set thisSheet = Sheets(j)

使用excel vba将单元格的公式转换为文本

1 个答案: