質問: ws.Range("B2").End(xlDown).Offset(1, 0).Value ws.Range("B2").End(xlDown).Offset(1, 0).AutoFill Destination:=.Resize(1, 14) ws.Rows(2).Copy Destination:=.Cells(j, 1) ws.Range(Range("B2"), Cells(Rows.Count, 1).End(xlUp)).Copy Destination:=.Cells(j, 1) wb.Close savechanges:=False Next End With End Sub ``` ### 試したこと 別ファイルを開いているのでワークシートを指定しているのですが...よくわかりません ### 補足情報(FW/ツールのバージョンなど) VBA初心者です。
回答: ワークシートは Resize プロパティを持っていませんので当然かと。 追記 一応ですが、現状 sデータ.Resize(1,14) になってるという意味です。 Worksheet ではなく Range オブジェクトを指定して下さい。