我有一个代码，我在命名区域中引用变量“k”，然后执行一系列嵌套的“if”循环 . 但是，我只能将“下一个k”放在子中的一个位置 . 但是，如果满足某些条件，我还需要代码循环回到下一个k . 在添加第二个“下一个k”语句时，我得到“Next Without For”错误 .

这是相关的代码片段：

Set SFR = SF.Range("a2", SF.Range("a2").SpecialCells(xlCellTypeLastCell))

Set Sheetparent = Control.Range("b2", Control.Range("b2").End(xlDown))

Set SheetControl = Control.Range("a2", Control.Range("a2").End(xlDown))

Set TypeControl = Control.Range("c2", Control.Range("c2").End(xlDown))

Set BDMControl = Control.Range("E2", Control.Range("e2").End(xlDown))

Set ParentControl = Control.Range("f2", Control.Range("f2").End(xlDown))

If r.Value = POp.Name Then

For Each k In SFR

If SFR(k.Row, 6).Value = r.Offset(0, 1).Value Then

For Each b In ParentControl

If SFR(k.Row, 1).Value = ParentControl(b.Row, 1).Offset(0, -1).Value Then

With POp.Range("a2")

.Offset(i, 0).Value = SFR(k.Row, 3).Value

.Offset(i, 1).Value = SFR(k.Row, 4).Value

.Offset(i, 2).Value = SFR(k.Row, 1).Value

.Offset(i, 3).Value = SFR(k.Row, 4).Value

.Offset(i, 4).Value = SFR(k.Row, 6).Value

.Offset(i, 5).Value = SFR(k.Row, 8).Value

.Offset(i, 6).Value = SFR(k.Row, 9).Value

.Offset(i, 7).Value = SFR(k.Row, 10).Value

.Offset(i, 8).Value = SFR(k.Row, 2).Value

.Offset(i, 9).Value = SFR(k.Row, 11).Value

.Offset(i, 10).Value = SFR(k.Row, 13).Value

.Offset(i, 11).Value = SFR(k.Row, 15).Value

End With

i = i + 1

Else

End If

Next b

Else

End If

Next k

Else

End If

因此，问题是在公式移动到下一个SFR k之前，我得到了几行重复的相同值SFR(k.row，[column]) . 我希望能够告诉宏转到下一个k if

If SFR(k.Row, 1).Value = ParentControl(b.Row, 1).Offset(0, -1).Value

是的，并且值被复制了 . 有什么建议？提前致谢 .