如何在VBA中删除单元格中的公式并替换为数字？

Sub ReplaceFormulaWithValues()
    Dim rng As Range
    Dim cell As Range
    
    '设置要操作的单元格范围
    Set rng = Range("A1:A10")
    
    '禁止屏幕刷新，加快处理速度
    Application.ScreenUpdating = False
    
    '循环遍历每个单元格
    For Each cell In rng
        '判断单元格是否包含公式
        If cell.HasFormula Then
            '将公式替换为值
            cell.Value = cell.Value
        End If
    Next cell
    
    '恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub