シート1からシート2へセルの情報を転記したいです。
1行分の転記はかけたのですが、
これを複数行に繰り返したい場合の書き方がよくわかりませんでした。。
転記元シートの開始行: 10
転記先シートの開始行:8
空欄になるまで繰り返ししたい。
VBAが全く分からないので、理解しやすい書き方をご教授頂けますと幸いです。
VBA
1Sub text_tenki() 2 3Worksheets("転記元_01") .Range(c10).Copy 4Worksheets("転記先_02").Range(e8).PasteSpecial 5 6Worksheets("転記元_01") .Range(p10).Copy 7Worksheets("転記先_02").Range(f8).PasteSpecial 8 9Worksheets("転記元_01") .Range(d10).Copy 10Worksheets("転記先_02").Range(g8).PasteSpecial 11 12Worksheets("転記元_01") .Range(l10).Copy 13Worksheets("転記先_02").Range(h8).PasteSpecial 14 15End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/09/05 10:29