我无法弄清楚为什么我的复制和粘贴不能正常工作？

Question

我一直试着弄清楚为什么这段代码不起作用。

With PTrend

    If Range("P3") > 0 Then
        .Range("E3" & .Range("P" & Rows.Count).End(xlUp)).Copy
        .Range("D3:D" & .Range("C" & .Rows.Count).End(xlUp).Row).PasteSpecial (xlPasteValues)
    End If

End With

我正在尝试将范围E3复制到P的最后一行，并粘贴从D3开始的特殊值。出于某种原因，它正在使用单元格E30并将该值用作复制和粘贴的所有值

非常感谢任何帮助。

谢谢，

Answer 1

使用您当前的方法修复您的代码：

With PTrend
    If .Range("P3").Value > 0 Then
        .Range("E3", .Range("P" & .Rows.Count).End(xlUp)).Copy
        .Range("D3:D" & .Range("P" & .Rows.Count).End(xlUp).Row).PasteSpecial xlPasteValues
    End If    
End With