仅将活动单元格复制和粘贴为值的宏答案

【问题标题】：Macro to copy and paste as values only the active cells仅将活动单元格复制和粘贴为值的宏
【发布时间】：2015-04-06 08:48:12
【问题描述】：

我是创建宏的新手，我通常会记录它们，但在复制和粘贴为值以从 3 个突出显示的单元格中删除公式时遇到问题

例如，我在单元格 B3 C3 和 H3 上有一个公式，所以我想手动突出显示这些单元格，然后宏可以删除每个单元格上的公式，例如复制和粘贴为相同单元格上的值

我尝试过使用 ActiveCell.Select 但这仅适用于 1 个单元格而不适用于多个单元格，而且问题是我需要每天更改不同单元格的值

【问题讨论】：

标签： excel vba

【解决方案1】：

不确定我是否完全按照您的问题回答，但我认为您的要求如下。

您可以遍历选定的每个单元格，然后将单元格值设置为其当前值，从而有效地删除所有公式。还有其他方法可以做到这一点，但我认为这最能回答您的具体问题。

Sub removeFormula()
    For Each cell In Selection
        cell.Value = cell.Value
    Next cell
End Sub

【讨论】：

效果很好，你太棒了。唯一的问题是这里的人们不想一个一个单元格地突出显示然后运行一个宏:(我刚刚做了一个代码并且工作正常:)
If ActiveCell = "" Then MsgBox "No hav valor en la categoria" Else Range("B" & ActiveCell.Row & ":H" & ActiveCell.Row).Select Selection.Copy 选择。 PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End If End Sub
这样，从 B 到 H 的所有公式将仅更改为用户正在处理的行上的值