|
IROC さん おはようございます。
アドバイスいただきありがとうございます。
ためしましたが、うまく出来ません。
>>For I = 開始No + 1 To 終了No + 1
>ループ間隔を Step 4 にし、
>
>
>> Range("b5") = Sheets("Sheet1").Range("B" & I)
>> Range("b2") = Sheets("Sheet1").Range("c" & I)
>> Range("b3") = Sheets("Sheet1").Range("d" & I)
>ここをシートのレイアウトに応じて変更して下さい。
For i = 開始No + 1 To 終了No + 1
For n = 開始No + 1 To 終了No + 1 Step 4
Range("b5") = Sheets("Sheet1").Range("b" & n)
Range("b2") = Sheets("Sheet1").Range("c" & n)
Range("b3") = Sheets("Sheet1").Range("d" & n)
Next
For b = 2 To 3 Step 1
Range("i5") = Sheets("Sheet1").Range("b" & b)
Range("i2") = Sheets("Sheet1").Range("c" & b)
Range("i3") = Sheets("Sheet1").Range("d" & b)
Next
For c = 3 To 4 Step 1
Range("b13") = Sheets("Sheet1").Range("b" & c)
Range("b10") = Sheets("Sheet1").Range("c" & c)
Range("b11") = Sheets("Sheet1").Range("d" & c)
Next
For d = 4 To 5 Step 1
Range("i13") = Sheets("Sheet1").Range("b" & d)
Range("i10") = Sheets("Sheet1").Range("c" & d)
Range("i11") = Sheets("Sheet1").Range("d" & d)
Next
Next
For Nextの使用方法とネスト??が理解できないためだと思います。
宜しくお願いします。
|
|