我找不出爲什麼我的複製和粘貼不能使用VBA？

我已經坐了一會兒，試圖找出爲什麼這段代碼不工作。我找不出爲什麼我的複製和粘貼不能使用VBA？

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和使用該值作爲所有值複製和粘貼

任何幫助將不勝感激。

感謝，

摹

來源

2017-10-04 GCC

刪除'（）''左右xlPasteValues' –

而改變' 「E3」''到「E3：E」 –

@ScottCraner如果OP想要複製單個列，也需要一個'.Row'，但我認爲他們想要'Range（「E3」，。Range（「P」＆.Rows.Count） .End（xlUp））'獲得多列 – YowE3K

要使用當前的方法解決您的代碼：

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

來源

2017-10-04 21:58:43 YowE3K

我找不出爲什麼我的複製和粘貼不能使用VBA？

回答

相關問題