Excel 事件触发时仅复制值的问题

因此，我有一个工作表更改，当源中的状态下拉列表更改为

Complete

并随后删除源行时，它甚至会将行从一个工作表复制到另一个目标工作表

它工作得很好，但是，很少有单元格在源代码中包含公式，并且它复制公式而不是值。我知道哪里是粘贴特殊，但在我的代码中我只使用复制。我可以做些什么，使它只复制源中的值和目标中的过去值

Private子工作表\u更改（ByVal目标作为范围）
尺寸检查为范围，r为长度，lastrow2为长度，lastrow为长度
Application.ScreenUpdating=False
lastrow=工作表（“打开的项目”）.UsedRange.Rows.Count
对于r=lastrow到2步骤-1
如果工作表（“打开的项目”）.Range（“P”&r）.Value=“完成”，则
工作表（“打开的项目”）。行（r）。复制
目的地：=工作表（“已完成项目”）。范围（“A”和_
行数）。结束（xlUp）。偏移量（1）
工作表（“打开的项目”）.Range（“p”和r）.EntireRow.Delete Shift:=xlUp
如果结束
下一个r
Application.ScreenUpdating=True
端接头

尝试

工作表（“已完成的项目”）.Range（“A”和Rows.Count）.End（xlUp）.Offset（1）.Resize（，Columns.Count）.Value=工作表（“打开的项目”）.Rows（r）.Value

。感谢您的回复。对不起，我猜不出应该用哪一行代码替换这一行，或者这将是另一行代码。请你把我的代码和你的建议都贴出来，我可以试试。这将非常有帮助。

复制

行：

工作表（“打开的项目”）。行（r）。复制目的地：=工作表（“完成的项目”）。范围（“A”&Rows.Count）。结束（xlUp）。偏移量（1）

。