如何使用Python移除Excel单元格公式仅保留其数值

手动操作方法（适合单次少量操作） #

• 打开目标工作簿，切换到forecast_consumption_rate工作表
• 按Date列筛选出你需要处理的指定日期对应的所有行
• 选中筛选结果里所有Expected usage和Due in列的单元格
• 右键选中区域，选择「复制」（或者直接按快捷键Ctrl+C）
• 不要取消选中，再次右键选中区域，点击粘贴选项里的「值」图标（快捷键可以按Alt+E+S+V后回车，一键粘贴值）
• 操作完成后取消筛选即可，这部分单元格的公式会被直接替换为当前计算得到的数值

VBA脚本方法（适合高频/批量操作） #

如果需要频繁处理这类需求，可以用VBA一键执行，代码如下，只需修改代码里的指定日期参数即可：

Sub 清除指定日期行的公式留值()
    Dim ws As Worksheet
    Dim targetDate As Date
    Dim lastRow As Long
    Dim i As Long
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("forecast_consumption_rate")
    ' 在这里修改为你需要处理的指定日期，格式为年/月/日
    targetDate = DateSerial(2024, 5, 20)
    ' 获取工作表最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有行，从第2行开始（默认第1行是表头）
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value = targetDate Then
            ' 处理Expected usage列（第2列），仅保留数值
            ws.Cells(i, "B").Value = ws.Cells(i, "B").Value
            ' 处理Due in列（第3列），仅保留数值
            ws.Cells(i, "C").Value = ws.Cells(i, "C").Value
        End If
    Next i
    MsgBox "处理完成"
End Sub

执行代码前建议先备份原文件，避免误操作导致数据丢失。
如果你的Date列是文本格式而非日期格式，把代码里的targetDate改为对应格式的字符串匹配即可。

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