仅在Excel VBA代码中使用“粘贴值”；查找“；作用

如何进一步修改代码，使其仅将值粘贴到我的“电缆列表”工作表上，而不是“数据”工作表中的公式

Dim strLastRow作为字符串
Dim rngC As范围
Dim STROTOFIND作为字符串，FIRSTMADDRESS作为字符串
将wSht设置为工作表
作为字符串的Dim rngtest
Application.ScreenUpdating=False
设置wSht=工作表（“数据”）
具有wSht.范围（“BM:BM”）
设置rngC=.Find（What:=“PVC”，LookAt:=xlPart）
如果不是，那么rngC什么都不是
FirstAddress=rngC.Address
做
strLastRow=图纸（“电缆列表”）。范围（“A”和行数）。结束（xlUp）。行数+1
rngC.EntireRow.Copy Sheets（“电缆列表”）.Cells（strLastRow，1）完成复制和粘贴的部分
设置rngC=.FindNext（rngC）
循环而非rngC为Nothing，rngC.Address为FirstAddress
如果结束
以

信用证：Sarasotavence更改此行：

rngC.EntireRow.Copy Sheets("Cable List").Cells(strLastRow, 1)

为此：

rngC.EntireRow.Copy
Sheets("Cable List").Cells(strLastRow, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

---

哇，谢谢你，伙计，我需要的东西做得很好，非常感谢D

rngC.EntireRow.Copy
Sheets("Cable List").Cells(strLastRow, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False