0

我是 VBA 的新手，所以可能会问一些非常基本的问题 - 抱歉！我有一个包含一系列记录的工作表，我想将这些记录移到另一个名为“July Archive”的工作表中。我正在使用这段代码，我知道这将覆盖“7 月存档”中的目标单元格。但我收到一条错误消息，提示 pasteValue 操作失败。

另外，我怎样才能附加单元格而不是覆盖。我尝试了 PasteAppend 但得到一个错误，说它不受对象支持。

Sub Selectweeklyreport()

    ActiveSheet.Range("a16", ActiveSheet.Range("f16").End(xlDown)).Cut
    ActiveSheet.Goto ("July Archive")
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

End Sub
4

1 回答 1

1

像这样？

Sub Selectweeklyreport()
    Dim wsI As Worksheet, wsO As Worksheet
    Dim lRow As Long

    '~~> Replace this with the relevant sheet name
    Set wsI = Sheets("Sheet1")
    Set wsO = Sheets("July Archive")

    With wsI
        '~~> Get the last Row in Sheet1
        lRow = .Range("F" & .Rows.Count).End(xlUp).Row

        '~~> Copy the range from Sheet1
        .Range("A16:F" & lRow).Copy 'and not .Cut????

        '~~> Get the next available row in July Archive
        lRow = wsO.Range("A" & wsO.Rows.Count).End(xlUp).Row + 1

        '~~> Paste Special Values
        wsO.Range("A" & lRow).PasteSpecial Paste:=xlValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With
End Sub
于 2012-07-11T16:05:48.247 回答