VBA技术需求：按条件将S列公式单元格替换为值

方法1：使用Paste Special（匹配你的尝试方向） #

以下是补全语法并实现需求的完整代码：

Sub PasteContitionalSpecial()
    Dim lastRow As Long
    Dim r As Long
    Dim ws As Worksheet
    
    ' 提前引用目标工作表，简化代码并提升可读性
    Set ws = ThisWorkbook.Worksheets("orders")
    
    ' 获取R列最后一行的行号
    lastRow = ws.Range("R" & ws.Rows.Count).End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头）
    For r = 2 To lastRow
        ' 判断R列当前行是否为指定值
        If ws.Range("R" & r).Value = "Withdraw Now" Then
            ws.Range("S" & r).Copy
            ' 仅粘贴值到原单元格，覆盖原有公式
            ws.Range("S" & r).PasteSpecial Paste:=xlPasteValues
        End If
    Next r
    
    ' 清除剪贴板状态，避免Excel残留粘贴提示
    Application.CutCopyMode = False
End Sub

方法2：直接赋值（更高效的写法） #

如果不需要依赖剪贴板操作，直接将单元格的计算值赋值给自己，执行效率会更高，尤其处理大量数据时：

Sub ConvertToValuesDirectly()
    Dim lastRow As Long
    Dim r As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("orders")
    lastRow = ws.Range("R" & ws.Rows.Count).End(xlUp).Row
    
    For r = 2 To lastRow
        If ws.Range("R" & r).Value = "Withdraw Now" Then
            ' 直接用计算后的值覆盖公式
            ws.Range("S" & r).Value = ws.Range("S" & r).Value
        End If
    Next r
End Sub

关键说明 #

• 原代码缺失Next r和End If语句，属于语法错误，补全后代码才能正常运行。
• 提前引用工作表ws可以避免重复书写Worksheets("orders")，让代码更简洁易维护。
• 两种方法都能实现将S列公式转为计算值的需求，可根据个人习惯选择。

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