复制并粘贴值以删除公式

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

感谢您的快速回复。

那非常接近我的需要。

我尝试了一下，它删除了“空白”公式，并将这些公式保留在填充的单元格中。

稍作调整，我想它就会在那里。

再次感谢。