根据值替换范围内的公式

Question

我试图找到一种更快的方法来查看范围，并将公式替换为单元格的值，但仅适用于显示“不在此处”以外的值的单元格。 到目前为止，我的代码如下。 它可以工作，但工作缓慢，尽管进行了广泛的搜索。 我还没有想出更好的方法。

Dim rng2 As Range

Set rng2 = Sheets("User Daily").Range("I2:I" & Application.WorksheetFunction.CountA(Sheets("Punch Times").Range("G:G")))

For Each Row In rng2.Rows
    For Each Cell In Row.Cells
        Select Case Cell.Value
        Case "Not Here"
            'do nothing
        Case Else
            Cell.Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                   :=False, Transpose:=False
        End Select
    Next Cell
Next Row

Answer 1

将我的评论放入答案中：

你可以使用Range.SpecialCells(xlCellTypeFormulas)

对于Case Else ，以下 3 行可以简化为Cell.Value = Cell.Value 。

您可以将Set rng2 =...行之后的所有内容替换为以下内容：

On Error Resume Next
Dim formulaCells As Range
Set formulaCells = rng2.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0

If formulaCells Is Nothing Then Exit Sub '<~ no cells with formulas

Dim cell As Range
For Each cell In formulaCells
    If cell.Value <> "Not Here" Then
        cell.Value = cell.Value
    End If
Next