对象不支持此属性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")代替。