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

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

使用VBA复制并粘贴一系列单元格

1 个答案: