Excel Paste特殊xlPasteValues-在VBA代码中正确集成

晚上好，朋友们。我有一个非常愚蠢的请求，我找不到正确的解决方案。 我需要在下面的过程中以正确的方式插入“.pasteValues”参数，以便在目标工作簿中只粘贴值。 下面的程序工作正常，如果可能的话，我不会更改它，但是将其与上面提到的参数集成。 除非我更改代码并使用其他解决方案。我重复一遍，下面的代码现在已经过测试，我可以安全地使用它，但是现在不再需要粘贴单元格格式和原始工作簿的验证

谢谢你的建议

编辑：

我会尽量说清楚的。我知道已经解决了类似的请求。我的问题是，在我已经使用的过程中，在哪里正确地放置“.PasteSpecial xlPasteValues”参数。其他解决方案不将数据粘贴到表中，而我使用源表和目标表

Public Sub CopyOnMasterDB ()

Dim CopyFrom As Range
Dim Copyto As Range

Set CopyFrom = Workbooks ("FromFile.xlsm"). Worksheets ("Database"). UsedRange.Offset (2, 0)
Set Copyto = Workbooks ("MASTER_DATABASE.xlsx"). Worksheets (1) .Range ("A" & Rows.count) .End (xlUp) .Offset (1, 0) 'Error If I insert .PasteSpecial xlPasteValues

CopyFrom .Copy Destination: = Copyto 'Error If I insert .PasteSpecial xlPasteValues
Application.CutCopyMode = False

Workbooks ("MASTER_DATABASE.xlsx"). Close SaveChanges: = True

End Sub

更改：

CopyFrom.Copy Destination:=CopyTo

到

---

大本！简单，快速。我一直在寻找的解决方案。事实上，我说我的要求“愚蠢”，但这让我停了下来。谢谢你，大本！大本，我相信这是个误会。我编辑了我的请求以便更清楚。最后，我投票赞成你的解决方案。我没有重复这个要求。至少我这么认为。如果我犯了错误，我道歉，但这不是我的本意。这是

Range.PasteSpecial

。如果要粘贴特殊内容，需要复制一行，粘贴第二行。

CopyFrom.Copy
CopyTo.PasteSpecial xlPasteValues