继续下一个循环在单独的单元格中
我有一个数字表，我想要创build一个macros，将通过每个循环，并返回任何高于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）中的一个值，这是它对应的最后一个值。 我所需要的是，一旦条件满足，就从这一点继续下去，但是把这个值input单元格（16 + j，3）。
一旦满足条件，我可能会考虑一个“退出”，但是不知道如何继续下一个单元。
根据你所说的这应该工作：
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