VBA实现仅复制粘贴单元格值而非公式的问题求助

嘿，我明白你的困扰——复制整行后只想粘贴值，结果要么带公式，要么用PasteSpecial还报错。咱们一步步来搞定它！

为什么你会遇到编译错误？ #

你尝试用OutputWorksheet.PasteSpecial.xlPasteValues的时候报错，是因为**PasteSpecial是Range对象的方法**，不能直接在Worksheet对象上这么调用，而且参数的写法也不对。正确的姿势是在目标单元格/行上调用PasteSpecial，并指定xlPasteValues参数。

修正后的代码（保留复制粘贴逻辑） #

我帮你调整了原代码，去掉了没必要的Activate和Select（VBA里尽量避免这些，会降低效率还容易出问题），并正确使用PasteSpecial：

Dim InputWorksheet As Worksheet
Dim OutputWorksheet As Worksheet
Dim FindRow As Range
Dim FindRowNumber As Long
Dim LastRow As Long
Dim TimeStamp As Date ' 假设TimeStamp是日期时间类型

' 先确保这两个工作表对象已正确赋值，比如：
Set InputWorksheet = ThisWorkbook.Worksheets("输入表")
Set OutputWorksheet = ThisWorkbook.Worksheets("输出表")
TimeStamp = Now() ' 示例时间戳

With InputWorksheet
    Set FindRow = .Range("O:O").Find(What:=cboMADropDown, LookIn:=xlValues, LookAt:=xlWhole) ' 建议加上LookAt:=xlWhole避免部分匹配
End With

If Not FindRow Is Nothing Then ' 先检查是否找到匹配行，避免出错
    FindRowNumber = FindRow.Row
    InputWorksheet.Rows(FindRowNumber).EntireRow.Copy
    
    LastRow = OutputWorksheet.Range("A" & OutputWorksheet.Rows.Count).End(xlUp).Row + 1 ' 注意这里要+1，不然会覆盖最后一行数据
    
    ' 直接在目标行调用PasteSpecial，只粘贴值
    OutputWorksheet.Rows(LastRow).PasteSpecial Paste:=xlPasteValues
    
    OutputWorksheet.Range("O" & LastRow).Value = TimeStamp
    Application.CutCopyMode = False ' 清除剪贴板，避免弹窗
Else
    MsgBox "未找到匹配的行！"
End If

更高效的替代方案（无需复制粘贴） #

如果不想用复制粘贴，直接赋值会更快，尤其是处理大量数据时：

If Not FindRow Is Nothing Then
    FindRowNumber = FindRow.Row
    LastRow = OutputWorksheet.Range("A" & OutputWorksheet.Rows.Count).End(xlUp).Row + 1
    
    ' 直接把源行的值赋值给目标行，跳过剪贴板
    OutputWorksheet.Rows(LastRow).Value = InputWorksheet.Rows(FindRowNumber).Value
    
    OutputWorksheet.Range("O" & LastRow).Value = TimeStamp
End If

这个方法直接将源行的Value属性赋值给目标行，完全绕开公式，速度也更快，还不会占用剪贴板。

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