【Excel VBA】1行飛ばしで転記するループ処理（For Nextステートメント） へのコメント https://excel-master.net/data-shaping/skip-1-row-loop/ Excelで消耗する人を減らすために各種ノウハウを展開中。あなたのExcelスキルの向上が、働き方改革・データドリブン・DXを実現する第一歩です。 Mon, 17 Jan 2022 23:35:02 +0000 hourly 1 https://wordpress.org/?v=6.7.5 森田貢士 より https://excel-master.net/data-shaping/skip-1-row-loop/#comment-300491 Sat, 25 Jan 2020 15:05:43 +0000 https://excel-master.net/?p=6048#comment-300491 まっつんさん

コメントありがとうございます。
ご質問の件、結論から言うと「可能」です。

ループの1回目が4行目、2回目以降は3行ずつ増えていきたいなら、本記事のコードを例にすると、13行目（Sheet1のCells部分）が以下のようになります。

ThisWorkbook.Sheets(“Sheet1”).Cells(i * 3 + 1, 1) = WB.Sheets(“ツール”).Cells(i + 1, 4)

こうすると、ループ1回目（i=1）が4行目、ループ2回目（i=2）が7行目、ループ3回目（i=3）が10行目、という風にループされていきますよ。
ご参考になれば幸いですm(__)m

]]> まっつん より https://excel-master.net/data-shaping/skip-1-row-loop/#comment-299831 Tue, 21 Jan 2020 06:19:40 +0000 https://excel-master.net/?p=6048#comment-299831 こちらのVBA構文でお聞きしたいことがございます。
今回、２行おきに貼り付ける内容となっておりましたが、これが、最初だけ４行、そこから3行おきに貼り付けるようにしたのですが、可能でしょうか。

]]>