将范围复制并粘贴到新目的地

Question

我试图在我的电子表格中构建的功能是“复制选定范围并过去到新范围，然后每次我运行宏时，它都会执行相同的 copy.paste.range 到新范围，但粘贴目标将跟随从以前粘贴的值开始。该功能是每周收集统计信息，宏将自动收集日期。

我的初始步骤有效，但它粘贴了公式，而不仅仅是值。我已经添加了粘贴特殊功能，但它现在根本不起作用。粘贴后，我正在寻找下一个复制并粘贴，以从粘贴到 D21:J27 的数据中继续，例如D28:J34（可能是偏移量？）

Sub CopyPaste_Weeklys()
Sheets("MI Build").Range("D7:J13").Copy
Sheets("MI Build").Activate
Range("D21:J27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNoneActiveSheet.Paste
Application.CutCopyMode = False
End Sub

任何帮助将不胜感激。

谢谢

加里

Answer 1

如果您只想将D7:J13 中的值复制到D21:J27，则您的整个 sub 可以替换为：

Sub CopyPaste_Weeklys()
    Sheets("MI Build").Range("D21:J27").Value = Sheets("MI Build").Range("D7:J13").Value
End Sub

在 VBA 中，复制/粘贴应保留用于需要复制公式和格式等内容的情况。对于值，最好只使用相应范围的 Value 属性。

大概范围并不总是D7:J13 和D21:J27，但您的问题没有提供有关如何确定范围的信息。上面的固定范围可以替换为可以在运行时设置的范围变量。以下几行：

Sub CopyPaste_Weeklys()
    Dim i As Long
    Dim target As Range
    With Sheets("MI Build")
        i = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
        Set target = Range(.Cells(i, "D"), .Cells(i + 6, "J"))
        target.Value = .Range("D7:J13").Value
    End With
End Sub

变量 i 由标准 Excel VBA 技巧确定，以确定包含数据的列中最后一行的行号。