複製和粘貼使用VBA

Question

單元格區域我想在列C5複製細胞：C27，並將其粘貼在範圍L5：L27，但我不斷收到一個運行時錯誤「1004」：

此選擇無效。有幾種可能的原因： 1.複製和粘貼區域不能重疊，除非它們具有相同的大小和形狀。 2.如果您使用的是從選擇創建命令，包含建議名稱的行或列將不會包含在...

這就是所有的消息框顯示。列C5：C27的每一行都只是部分填充，這可能是問題嗎？有沒有其他方法可以用來在VBA中剪切和粘貼？ 謝謝你一堆。

Sub CopyColumn() 
    ' Cut and Paste date column 
    Worksheets("TankHours").Activate 
    Dim TimeCol As Range 

    Set TimeCol = Range("C5:C27") 
    TimeCol.Cut 
    TimeCol.Insert Range("L5:L27") 

    End Sub 

Answer 1

如果你只是複製粘貼我會這樣做。

Sub CopyColumn() 

    Sheets("Sheet1").Range("L5:L27").Value = Sheets("Sheet1").Range("C5:C27").Value 

End Sub 

一個範圍等於另一個範圍。