如何按照特定顺序循环取值

blueblank

    自己只会写简单的语句，弄了半天只能取固定值，无法按顺序取，请教大神些看看
Sub ks()

For h = 1 To 19
For i = 1 To 9
Sheets("SHEET1").Cells(h, i) = "a1"
i = i + 3
Next i
h = h + 3
Next h
j = j + 1

For h = 2 To 19
For i = 3 To 11
Sheets("SHEET1").Cells(h, i) = "b1"
i = i + 3
Next i
h = h + 3
Next h

For h = 2 To 19
For i = 1 To 9
Sheets("SHEET1").Cells(h, i) = "a2"
i = i + 3
Next i
h = h + 3
Next h

For h = 3 To 19
For i = 3 To 11
Sheets("SHEET1").Cells(h, i) = "b2"
i = i + 3
Next i
h = h + 3
Next h

End Sub

半百

Sub ks()
For H = 1 To 18 Step 4
    For I = 1 To 11 Step 4
    N = N + 1
    Cells(H, I) = Sheets(2).Cells(N, 1)
    Cells(H + 1, I) = Sheets(2).Cells(N, 2)
    R = N + 15
    Cells(H + 1, I + 2) = Sheets(2).Cells(R, 1)
    Cells(H + 2, I + 2) = Sheets(2).Cells(R, 2)
    Next
Next
End Sub

网海遨游

是不是这样的？
Sub test2222()
    Set sh1 = Sheets("sheet1")
    sh1.[a1:k19].ClearContents
    Set sh2 = Sheets("sheet2")
    arr = sh2.[a1].CurrentRegion
    For i = 1 To 5
        For j = 1 To 3
            sh1.Cells(i * 4 - 3, j * 4 - 3) = arr(j + 4 * i - 3 - i, 1)
            sh1.Cells(i * 4 - 2, j * 4 - 3) = arr(j + 4 * i - 3 - i, 2)
        Next
    Next i
    i = 0: j = 0
    For i = 1 To 5
        For j = 1 To 3
            sh1.Cells(i * 4 - 2, j * 4 - 1) = arr(j + 12 + 4 * i - i, 1)
            sh1.Cells(i * 4 - 1, j * 4 - 1) = arr(j + 12 + 4 * i - i, 2)
        Next
    Next i
    MsgBox "OK！完成", 48, "温馨提示……"
End Sub

blueblank

谢谢大神们！学了了！完美解决