vba - 对象不支持此属性vba

Question

'Copy and Paste the format of table
        With wb.Sheets("Sheet1").UsedRange
            .Copy
        End With

        Set cell = ActiveSheet.Range("C" & Rows.Count).End(xlUp)
        cell.Offset(3, 3).Activate

        With wbTarget.Sheets(I).ActiveCell
            .PasteSpecial
        End With

在第三段，它给了我错误。我想将复制的内容粘贴到事件单元格中。

我该如何解决这个问题？谢谢

Answer 1

如果我理解您想要通过代码实现的目标，我认为 ActiveSheet 也是 wbTarget.Sheets(I) (我希望)。

所以替换你的:

Set cell = ActiveSheet.Range("C" & Rows.Count).End(xlUp)
cell.Offset(3, 3).Activate

With wbTarget.Sheets(I).ActiveCell
    .PasteSpecial
End With

与:

With ActiveSheet
    Set cell = .Range("C" & .Rows.Count).End(xlUp)
    cell.Offset(3, 3).PasteSpecial
End With

注意:您应该远离 ActiveSheet 并使用 Worksheets("SheetName")。