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

问题描述

所以我有一个工作表更改，即使当源中状态列中的下拉列表更改为 Complete 并随后删除源行时，它也会将行从一个工作表复制到另一个目标工作表。

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

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Check As Range,r As Long,lastrow2 As Long,lastrow As Long
    Application.ScreenUpdating = False    
    lastrow = Worksheets("Open Projects").UsedRange.Rows.Count    
    For r = lastrow To 2 Step -1
        If Worksheets("Open Projects").Range("P" & r).Value = "Complete" Then
            Worksheets("Open Projects").Rows(r).copy
            Destination:=Worksheets("Completed Projects").Range("A" & _
                Rows.Count).End(xlUp).Offset(1)
            Worksheets("Open Projects").Range("p" & r).EntireRow.Delete Shift:=xlUp
        End If
    Next r    
    Application.ScreenUpdating = True    
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）