エクセルVBA 4行飛ばしで転記するループ処理

シート1のA101からA217まで、4行おきのデータ（文字）をコピー
別シートのB9からB38まで順番に転記するループを教えてください。
よろしくお願いします。

質問者からの補足コメント

• シート1のＢ列には同じく101行から217行までデータがあり、
  これを4点おきに、シート2のD列に順番に転記する場合は別のサブルーチン
  にした方がよいのでしょうか？
  　Qchan1962さんの回答を応用すれば、自分でもできそうです。
  ちなみに、データは全部でＡ、Ｂ、Ｃ、Ｄ列にあります。

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/04/24 08:53

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/04/23 17:08

こんな感じですか？

Sub Sample()
Dim i As Long, j As Long
j = 9
For i = 101 To 217 Step 4
Sheets("別シート").Range("B" & j).Value = Sheets("シート1").Range("A" & i).Value
j = j + 1
Next
End Sub

No.2 回答者： fujillin 回答日時： 2020/04/23 17:29

こんにちは

別案です。

Sub Sample()
With Worksheets("シート1").Range("B9:B38")
　.FormulaLocal = "=INDEX(別シート1!A:A,ROW()*4+65)&"""""
　.Value = .Value
End With
End Sub

この回答へのお礼

早速、ご回答ありがとうございました。
私のやり方が悪いのか、うまく行きませんでした。
すみません。

お礼日時：2020/04/24 08:57