VBA宏如何识别A列公式返回值为1的行并硬编码对应整行

原有代码问题 #

原代码使用SpecialCells(xlConstants)筛选遍历范围，该方法仅会选中存储常量值的单元格，所有带公式的单元格都会被排除在遍历范围外，因此无法识别公式计算输出的1。

修改方法 #

仅需调整SpecialCells的筛选参数，将常量筛选改为公式单元格筛选即可，同时做两处小优化提升稳定性：

• 删除冗余的ActiveSheet.Select语句，直接操作活动工作表，避免不必要的界面切换
• 值判断直接匹配数字1，避免单元格为数值格式时与字符串"1"类型不匹配导致漏判

修改后可直接运行的完整代码：

Sub formulatovalue()
    Dim c As Range
    ' 遍历当前工作表A列所有带公式的单元格
    For Each c In ActiveSheet.Columns(1).SpecialCells(xlFormulas)
        ' 匹配公式计算结果为1的单元格
        If c.Value = 1 Then
            ' 对应整行替换为计算结果，移除公式
            c.EntireRow.Value = c.EntireRow.Value
        End If
    Next c
End Sub

使用提示 #

宏执行后操作无法撤销，运行前请确认已选中需要处理的目标工作表，建议提前备份文件避免数据误修改。
如果后续需要同时识别常量输入的1和公式计算出的1，可以去掉SpecialCells筛选逻辑，直接遍历A列已使用单元格，将循环语句替换为For Each c In ActiveSheet.UsedRange.Columns(1).Cells即可。

内容的提问来源于stack exchange，提问作者Antonia2345