如何拆分for循环的第二维？

Question

如果我有一个for / next循环，但有一个列将我需要将数组打印应用于的范围分开，那么我该如何拆分呢？

示例：

For i = 0 To 4 '5 rows
    For j = 3 To 5 'apply across 3 columns
        Set c = wsA.Cells(fndRow + i, j + 43)
        c.Interior.Color = VBA.RGB(255, 255, 0)
        wsA.Cells(fndRow + i, j + 43).Value = rIterator.Offset(, j - 1).Value * multplr(i)
    Next j
Next I

我想在3列之间拆分数组打印，跳过一列，然后跳过接下来的三列：

For j = 3 to 5, 7 to 9 

我知道这不是正确的语法，但这表达了我在问题中的观点。有什么想法吗？我是否需要创建另一个for循环？

Answer 1

For j = 3 to 9
    if j<>6 Then
        'do stuff
    end if
next j