复制和粘贴值以删除公式

Question

这是我在这里的第一个问题，我对vba不是很有经验。 我有一个名为Log的Excel工作表，其中包含捕获信息的单元格AK2：AQ500中的公式。 保存文档时，我想将该范围内的任何非空单元格转换为值，同时将公式保留在显示为空白的单元格中。 有人可以给我一些帮助吗？ 感谢。

Answer 1

怎么样：

Sub fixat()
    Dim rng As Range, r As Range
    Set rng = Range("AK2:AQ500").SpecialCells(xlCellTypeFormulas)
    For Each r In rng
        If r.Value <> "" Then
            r.Value = r.Value
        End If
    Next r
End Sub

Answer 2

感谢您的快速回复。

这非常接近我的需要。

我试过了，它删除了＆＃34;空白＆＃34;公式并将公式保存在填充的单元格中。

稍微调整一下，我认为它会在那里。

再次感谢。