如何添加粘贴值以粘贴目标 VBA 代码？

Question

我想添加一行代码，只复制 C 列的值，不带格式。

我的部分代码目前如下所示：

If Worksheets("Sheet1").Cells(i, 4).Value = FISH Then
    Worksheets("Sheet1").Cells(i, 3).Copy
    erow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Sheet1").Paste Destination:=Worksheets("Sheet2").Cells(erow + 1, 1)

我在网上找到了一个简单的 PasteValues 方法，其中说明如下：

Range("A1:A3").Copy
Range("B1:B3").pastespecial xlPasteValues

然而，我真正想要的是将 PasteValues 添加到我现有的代码中。

有人知道我是怎么做到的吗？

Answer 1

如果您只需要这些值，则跳过剪贴板并直接分配值：

If Worksheets("Sheet1").Cells(i, 4).Value = FISH Then
    erow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Sheet2").Cells(erow + 1, 1).Value = Worksheets("Sheet1").Cells(i, 3).Value
End If

如果您确定要使用剪贴板，那么：

If Worksheets("Sheet1").Cells(i, 4).Value = FISH Then
    Worksheets("Sheet1").Cells(i, 3).Copy
    erow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Sheet2").Cells(erow + 1, 1).PasteSpecial xlPasteValues
End If

但是这样会比较慢，尤其是在循环中。

如何添加粘贴值以粘贴目标 VBA 代码？

How To Add PasteValues To PasteDestination VBA Code?

excel

vba

copy-paste

paste