2014-09-26 40 views
0

单元格区域我想在列C5复制细胞:C27,并将其粘贴在范围L5:L27,但我不断收到一个运行时错误“1004”:复制和粘贴使用VBA

此选择无效。有几种可能的原因: 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 

回答

0

如果你只是复制粘贴我会这样做。

Sub CopyColumn() 

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

End Sub 

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