質問: Workbooks.Open(fPath) ThisWorkbook.Activate Target.Sheets(1).Range("G2").Copy Sheets(2).Range("A2") Target.Sheets(1).Range("H2").Copy Sheets(2).Range("A3") ActiveWorkbook.SaveAs Filename:="C:Work\Book1.xlsm"'抽出転換されたシートを保存 End Sub ``` ### 試したこと デバッグのポインタが36行目のTarget.Sheets(1).Range("G2").Copy Sheets(2).Range("A2")で止まります。 調べたもののSetステートメントはついており、原因がわかりませんでした。 もしおわかりになればお願いします。 ### 補足情報(FW/ツールのバージョンなど) Excel 2019
回答: > > > ``` > Target.Sheets(1).Range("G2").Copy Sheets(2).Range("A2") > > ``` > > は`Target.`が不足していて ``` Target.Sheets(1).Range("G2").Copy Target.Sheets(2).Range("A2") ``` の誤りだったりしませんか?