|
こんにちは。
ニーズがまた少し変わりました。
アクティヴシートのF3から、1つ飛ばしながら、SHEET1のD2からD33にはいっている値を順次入れます。
T3まできたら次行に移り、今度はF4から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
N4まできたら次行に移り、今度はF5から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
N5まできたら次行に移り、今度はF6から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
N6まできたら次行に移り、今度はF7から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
このときSHEET1がD33に達していたらD2に戻ることとします。
N7まできたら次行に移り、今度はF8から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
このときSHEET1がD33に達していたらD2に戻ることとします。
N8まできたら次行に移り、今度はF9から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
このときSHEET1がD33に達していたらD2に戻ることとします。
N9まできたら次行に移り、今度はF10から、1列飛ばしながら、SHEET1のD2からD33のうちまだ入れていない値を順次入れます。
このときSHEET1がD33に達していたらD2に戻ることとします。
このように、N90が埋まるまで繰り返したいのです。
自力でここまできましたがループしてしまい、終わりません。
どこが悪いか、どなたかご教示くださいませんでしょうか。
Sub Macro1()
Dim i As Long
Dim k As Long
Dim m As Long
Dim p As Long
Dim n As Long
Range("F3").Select
m = 6
i = 2
Do While i <= 9
Cells(ActiveCell.Row, m).Select
ActiveCell = Worksheets("sheet1").Cells(i, 4).Value
i = i + 1
m = m + 2
Loop
Do While n <= 87
k = -14
Do While k <= -6
n = 1
ActiveCell.Offset(n, k) = Worksheets("sheet1").Cells(i, 4).Value
i = i + 1
if i = 30 Then i = 2
k = k + 2
Loop
Loop
End Sub
|
|