VBA Excel中粘貼排在不同的表尋找價值

Question

我試圖用下述一段VBA代碼，但它給了我一個錯誤說後：Range類的PasteSpecial的methond失敗

pastesheet.Range("C13:C300").Find(what:=cntr, LookIn:=xlValues).Offset(0, -2).PasteSpecial xlPasteValues 

pastesheet是我想要查找的目標工作表cntr（來自不同工作簿中不同工作表的值）。 之後，我想用先前已經複製的整個新行替換找到cntr的行。

有人可以協助完成這項工作嗎？

Answer 1

您必須測試是否已找到該值。如果未找到任何值，則無論如何都會執行該操作，從而導致錯誤。

Dim rng As Range 

Set rng = pastesheet.Range("C13:C300").Find(what:=cntr, LookIn:=xlValues) 

If Not rng Is Nothing Then 
    rng.Offset(0, -2).PasteSpecial xlPasteValues 
End If