オブジェクトはこのプロパティをサポートしていません。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番目の段落で、エラーが表示されます。私はコピーした内容をアクティブセルに貼り付けたい。

どうすればこの問題を解決できますか？ありがとう

Answer 1

コードで達成しようとしていることを理解していれば、ActiveSheetもwbTarget.Sheets(I)（私が望む）だと思います。あなたはActiveSheetから離れなければならないし、代わりにWorksheets("SheetName")を使用します。

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 

注を

だからあなたを交換してください。