Excel宏问题：指定行公式转值功能失效求助

原代码的问题点 #

• 不必要激活工作表，且未明确指定Rows(lastRow)所属的工作表，存在潜在错误风险
• 遍历整行所有单元格（共16384列），效率极低，且可能因空列或特殊单元格导致转值操作失败
• 未处理Find找不到匹配值的情况，会直接触发运行时错误

优化后的代码 #

Sub FormulaToValue()
    Dim targetValue As Variant
    Dim wsMemHistory As Worksheet
    Dim foundCell As Range
    Dim targetRow As Range
    
    ' 定义工作表对象，简化后续引用
    Set wsMemHistory = ThisWorkbook.Sheets("Mem History")
    targetValue = ThisWorkbook.Sheets("GRAND TOTALS").Range("A1").Value
    
    ' 精准查找匹配行，同时处理无匹配的情况
    Set foundCell = wsMemHistory.Columns(1).Find(What:=targetValue, LookIn:=xlValues, LookAt:=xlWhole)
    If foundCell Is Nothing Then
        MsgBox "未找到匹配的行"
        Exit Sub
    End If
    
    ' 仅选中该行有数据的列范围，避免无效操作
    Set targetRow = wsMemHistory.Range(wsMemHistory.Cells(foundCell.Row, 1), _
                                      wsMemHistory.Cells(foundCell.Row, wsMemHistory.Cells(foundCell.Row, Columns.Count).End(xlToLeft).Column))
    
    ' 一次性将公式转换为计算值，高效且可靠
    targetRow.Value = targetRow.Value
End Sub

关键改进说明 #

1. 明确工作表引用：通过定义工作表对象，避免因激活状态变化导致的行引用错误
2. 完善查找逻辑：添加LookIn:=xlValues和LookAt:=xlWhole参数，确保匹配的是单元格的完整值，同时增加无匹配时的报错提示
3. 缩小操作范围：只处理该行有实际数据的列，避免遍历大量空列浪费资源
4. 批量转值：直接对目标范围执行Value = Value，比逐个单元格循环高效得多，也避免了循环中可能出现的单个单元格操作异常

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