For Next構文を使ったＶＢＡ
こんにちは、ＶＢＡについて質問をさせてください！(>_<)
同じブックにシート「テスト」と「Sheet1」があり、「テスト」にはデータの入力欄、「Sheet1」には「テスト」に入力するためのデータが入っています。「テスト」の入力欄は「Sheet1」のデータの並び順と同じですが、入力したデータ同士に４行３列ずつデータを入力しないセルを作らなくてはなりません。
また、データを入力するセルは「テスト」の５列目８行目＝「Sheet1」３列目２行目～「テスト」の２０列目８行目＝「Sheet1」８列目２行目のように、まず列番号を増やし、列番号が最大になったら行番号が増え、列番号はまた初期値から増えます。したがって、次は「テスト」の５列目９行目＝「Sheet1」の３列目３行目～「テスト」の２０列目９行目＝「Sheet1」の８列目３行目になります。
上記を踏まえてＶＢＡを作成してみたのですが、このままではi,j,k,l全ての値がNextで増えてしまいます。Ifを使ったりするのかと色々ネットで調べて考えてみましたが、行き詰まってしまいました。どなたかご教授いただけるととても嬉しいです。説明が長く申し訳ないです、わかりづらければ補足させていただくので、おっしゃってください！
Dim i, j, k, l As Integer
For i = 5 To 20 Step 3 'シート「テスト」の列
For j = 8 To 116 Step 4 'シート「テスト」の行
For k = 3 To 8 'シート「Sheet1」の列
For l = 2 To 39 'シート「Sheet1」の行
Cells(j, i).Value = Sheets("Sheet1").Cells(l, k).Value
Next l
Next k
Next j
Next i
