Excel VBA多重/嵌套循环

Question

我有一段代码，它循环遍历一个工作表中的30列，查找数据，然后将这些数据复制到另一个工作表中的某个目标。关键是这些数据将不断变化。有时，我可能会复制一列数据，其他时候，所有的30，更常见的东西在两者之间。

我已经想出了如何循环遍历我的30列数据。然而，我仍然停留在如何粘贴每个副本旁边的最后一个目标工作表。到目前为止，它只是不断地在顶部进行复制，因为我还没有确定如何在何处插入For循环，并使行/列位置变量。

我想知道您是否可以查看下面的代码，并建议这第二个For循环应该去哪里？

With Sheets("RAW DATA")

    ColumnCount = 30

For i = 2 To ColumnCount

    'For j = 9 To 39

    Dim Rng As Range

    Set Rng = Sheets("RAW DATA").Cells(2, i)

    If Rng.Value <> 0 And Rng.Value <> "" Then

        With Sheets("RAW DATA").Range(Sheets("RAW DATA").Cells(1, i), Sheets("RAW DATA").Cells(16, i))
        .Copy
        End With

        With Sheets("Region")
        .Cells(9, j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With

    Else
    End If

    'Next j

Next i

End With 

它目前在代码中被注释掉了，但我一直试图将Next j部分合并到正确的位置。

提前感谢

Answer 1

正如评注部分所讨论的，您可以简单地从j = 9开始(在第一个For循环之前)，然后在将值粘贴到区域表之后执行j = j + 1。不需要第二个For ... To循环。

(...)
    j = 9
    (...)

    For i = 2 To ColumnCount

        With Sheets("Region")
        .Cells(9, j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With

        j = j + 1
    (...)
    Next i