对象不支持此属性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

在第3段，它给了我错误。我想将我复制的内容粘贴到activecell中。

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

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")。