vba - 在 VBA 中使用带有 Sheet.Cells(,) 的 PasteSpecial 来仅复制值

Question

我有一个 vba 脚本，我必须将一行值从一个工作表复制到另一个工作表。我只需要复制值而不是公式。我已经读过 PasteSpecial 可以做到这一点。我的挑战是我需要将 PasteSpecial 与 Sheet.Cells(,) 函数一起使用，因为我的目标工作表的单元格是动态计算的。这是示例代码片段：

For Each header In desWS.Range(desWS.Cells(1, 1), desWS.Cells(1, lcol))

    Set foundHeader = srcWS.Rows(2).Find(header, LookIn:=xlValues, LookAt:=xlWhole)
    If Not foundHeader Is Nothing Then
    srcWS.Range(srcWS.Cells(3, foundHeader.Column), srcWS.Cells(lastRow, foundHeader.Column)).Copy _
     desWS.Cells(2, header.Column)
    End If
Next header

使用上面的代码，它也在复制公式。有人可以帮我编写代码，了解如何在这种情况下使用 PasteSpecial 来仅复制和粘贴值吗？谢谢你。

标签： vbacopy-paste