继续在单独的单元格中进行下一个循环

Question

我有一个数字表，我想创建一个循环遍历每个数字的宏，并返回任何大于 0 的值。

表格看起来像这样：

    1   2   3   4   5   6   7   8   9   10  11  12  13  14
1   0   0   0   0   0   0   0   0   0   0   0   0   0   0
2   0   0   0   0   2   0   0   0   0   0   0   0   0   7
3   0   0   0   0   0   0   0   0   0   0   0   0   0   0

我希望它返回列标题。因此，在该示例中，我希望它为第二行返回值 5 和 14。

到目前为止我有：

For j = 0 To 11
    For i = 0 To 91

        If Cells(2 + j, 2 + i) > 0 Then
        Cells(16 + j, 2) = Cells(1, 2 + i)
        End If

    Next i
Next j

这个问题是它只会返回单元格中的一个值（16 + j，2），这是它对应的最后一个值。我需要的是，一旦满足条件，它会从该点继续，但将值输入到单元格（16 + j，3）中。

一旦满足条件，我可能会考虑“退出”，但无法弄清楚如何从中断的地方继续下一个单元格。

Answer 1

按照你说的应该可以：

Dim cont        As Integer

cont = 2

For j = 0 To 11
For i = 0 To 91

    If Cells(2 + j, 2 + i) > 0 Then
    Cells(16 + j, cont) = Cells(1, 2 + i)
    cont = cont + 1
    End If

Next i
Next j