一旦在范围内找到值，每个循环将在迭代中转到下一行答案

【问题标题】：For each loop to go to next row in iteration once value found in range一旦在范围内找到值，每个循环将在迭代中转到下一行
【发布时间】：2017-10-03 08:36:37
【问题描述】：

全部，

我有下面的代码，它遍历列和行以查看IF 声明是真的。它似乎正在运行整个代码，带回重复的行。一旦找到值，我希望此代码转到下一行。

我不确定如何调整此代码，但我想问题出在每个循环的一般情况上，我已经设置了有关如何解决此问题的任何建议，将不胜感激。

Dim LR As Long
LR = Workbooks(trackerName).Sheets("Results").Range("A1048576").End(xlUp).Row
Dim LRC As Long
LRC = Workbooks(trackerName).Sheets("Columnsforbox").Range("A1048576").End(xlUp).Row + 1
For Each c In Workbooks(trackerName).Sheets("results").Range("A4:K" & LR)
    If c.Value = UserName Or c.Value = UserId Then
        Worksheets("Columnsforbox").Range("A" & LRC) = Worksheets("Results").Range("E" & c.Row)
        Worksheets("Columnsforbox").Range("B" & LRC) = Worksheets("Results").Range("D" & c.Row)
        Worksheets("Columnsforbox").Range("C" & LRC) = Worksheets("Results").Range("A" & c.Row)
        Worksheets("Columnsforbox").Range("D" & LRC) = Worksheets("Results").Range("B" & c.Row)
        Worksheets("Columnsforbox").Range("E" & LRC) = Worksheets("Results").Range("C" & c.Row)
        LRC = LRC + 1
    End If
Next c

【问题讨论】：

您是否只想在results 工作表的特定列中查找UserName 或UserId？
如果在指定的列中找到用户名或用户ID，我希望它执行代码然后转到下一行。例如，目前如果在 A、B、C 列中找到用户名或用户 ID，它将执行代码 3 次我希望代码只执行一次。
@SeanBailey 您不能将c 设置为For Each 循环中的其他单元格（当然可以，但它会在Next 之后返回初始单元格的下一个单元格）。我可能会推荐循环二维数组，您可以更改 For To 循环中的值。

标签： vba excel for-loop

【解决方案1】：

基本一样，但现在我们循环遍历数组：

Dim myArr(), i as Long, j as Long
Dim LR As Long
LR = Workbooks(trackerName).Sheets("Results").Range("A1048576").End(xlUp).Row
Dim LRC As Long
LRC = Workbooks(trackerName).Sheets("Columnsforbox").Range("A1048576").End(xlUp).Row + 1
myArr = Range("A4:K" & LR).Value
For i = LBound(myArr,1) To Ubound(myArr,1)
    For j = LBound(myArr,2) To Ubound(myArr,2)
        If myArr(i,j) = UserName Or myArr(i,j) = UserId Then
            Worksheets("Columnsforbox").Range("A" & LRC) = Worksheets("Results").Range("E" & i)
            Worksheets("Columnsforbox").Range("B" & LRC) = Worksheets("Results").Range("D" & i)
            Worksheets("Columnsforbox").Range("C" & LRC) = Worksheets("Results").Range("A" & i)
            Worksheets("Columnsforbox").Range("D" & LRC) = Worksheets("Results").Range("B" & i)
            Worksheets("Columnsforbox").Range("E" & LRC) = Worksheets("Results").Range("C" & i)
            LRC = LRC + 1
            Exit For
        End If
    Next j
Next i

嗯，你有个主意。

【讨论】：

谢谢，非常感谢！我以前从未做过这种类型的循环，所以感谢您的帮助！一个问题是 i 从 1 开始，所以当我粘贴它时，它会复制行 A 而不是 4。我可以在 i 的末尾加上 +3 并且它可以工作，但是有一部分代码我可以更改吗？
@SeanBailey 哦，好吧，我猜你可以手动将 3 (& i + 3) 添加到行中。老实说，我现在想不出另一种解决方法。

【解决方案2】：

另一种不使用循环的解决方案。

Sub Demo()
    Dim rngUserName As Range, rngUserId As Range
    Dim LR As Long, LRC As Long, rowIndex As Long
    Dim srcSht As Worksheet, destSht As Worksheet

    Set srcSht = Workbooks(trackerName).Sheets("Results")       'this is source sheet
    Set destSht = Workbooks(trackerName).Sheets("Columnsforbox") 'this is destination sheet

    LR = srcSht.Cells(srcSht.Rows.Count, "A").End(xlUp).Row     'get last row using column A
    LRC = destSht.Cells(destSht.Rows.Count, "A").End(xlUp).Row  'get last row using column A

    Set rngUserName = Range("A4:K" & LR).Find(UserName, after:=Cells(4, 1), searchdirection:=xlPrevious) 'find user name
    Set rngUserId = Range("A4:K" & LR).Find(UserId, after:=Cells(4, 1), searchdirection:=xlPrevious)   'find user id

    If Not rngUserName Is Nothing And Not rngUserId Is Nothing Then 'if both user name & user id are found
        rowIndex = Application.Max(rngUserName.Row, rngUserId.Row)
    ElseIf Not rngUserName Is Nothing Then                          'if only user name found
        rowIndex = rngUserName.Row
    ElseIf Not Not rngUserId Is Nothing Then                        'if only user id found
        rowIndex = rngUserId.Row
    End If
    MsgBox rowIndex

    destSht.Range("A" & LRC) = srcSht.Range("E" & rowIndex)
    destSht.Range("B" & LRC) = srcSht.Range("D" & rowIndex)
    destSht.Range("C" & LRC) = srcSht.Range("A" & rowIndex)
    destSht.Range("D" & LRC) = srcSht.Range("B" & rowIndex)
    destSht.Range("E" & LRC) = srcSht.Range("C" & rowIndex)
End Sub

【讨论】：