如何在VBA代码的PasteDestination中添加PasteValues功能？

嘿，这事儿很简单，我帮你把PasteValues逻辑整合到你的现有代码里，还会给你两种实用方案选！

方案1：用你找到的PasteSpecial方法修改 #

你的现有代码是用Copy+Paste Destination来复制内容，这会连带格式一起粘贴。只需要把最后一行的Paste替换成PasteSpecial并指定xlPasteValues就行，修改后的完整代码如下：

If Worksheets("Sheet1").Cells(i, 4).Value = FISH Then
    ' 复制Sheet1第i行第3列（C列）的内容
    Worksheets("Sheet1").Cells(i, 3).Copy
    ' 计算Sheet2中A列的下一个空行位置
    erow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    ' 只粘贴值到目标单元格
    Worksheets("Sheet2").Cells(erow + 1, 1).PasteSpecial Paste:=xlPasteValues
    ' 可选：清除剪贴板的选中状态，避免后续误操作
    Application.CutCopyMode = False
End If

关键修改点： #

• 把原来的Worksheets("Sheet1").Paste Destination:=...改成直接在目标单元格上调用PasteSpecial方法，指定Paste:=xlPasteValues，这样就只会复制单元格的值，不会带格式、公式这些额外内容。
• 加上Application.CutCopyMode = False是个好习惯，能清除界面上的复制选中框，也不会占用剪贴板资源。

方案2：更高效的直接赋值（推荐） #

如果处理的数据量比较大，用Copy/Paste会有点慢，还会占用剪贴板。其实可以直接把源单元格的值赋值给目标单元格，完全不需要复制粘贴操作，代码更简洁高效：

If Worksheets("Sheet1").Cells(i, 4).Value = FISH Then
    ' 计算Sheet2中A列的下一个空行位置
    erow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    ' 直接将值从Sheet1的C列赋值到Sheet2的A列
    Worksheets("Sheet2").Cells(erow + 1, 1).Value = Worksheets("Sheet1").Cells(i, 3).Value
End If

这种方法的优势：

• 执行速度更快，尤其是处理大量行的时候
• 不会影响用户的剪贴板内容（比如用户之前复制的内容不会被覆盖）
• 代码逻辑更直接，减少了剪贴板相关的潜在问题

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