复制和粘贴使用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 

一个范围等于另一个范围。