我无法弄清楚为什么我的副本和粘贴不起作用

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并将该值作为所有值复制和粘贴

任何帮助将不胜感激。

谢谢，

g

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