前提・実現したいこと
ブック内の全てのシート(転記先シートを除く)のデータを、同じブック内のシートに転記する方法を教えてください。
各シートのデータは、「A17」セルから入力されており、
データの行数は各シートによって異なります。(最大でも15行くらいです)
転記させたいデータは、B・C列になります。
転記は、転記先シートの「A1」セルから転記させたいです。
ループでコードを作ってみましたが、
実行すると最初は上手く転記されますが、
途中で固まってしまいます。
ご教授宜しくお願い致します。
該当のソースコード
Sub 転記() Dim j As Long Dim i As Long Dim cnt As Long cnt = 1 For j = 2 To ThisWorkbook.Worksheets.Count For i = 17 To Worksheets(j).Range("B17").End(xlDown).Row Worksheets(1).Cells(cnt, 1).Value = Worksheets(j).Cells(i, 2).Value Worksheets(1).Cells(cnt, 2).Value = Worksheets(j).Cells(i, 3).Value cnt = cnt + 1 Next i Next j End Sub
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/03/07 08:15