Excel VBA For...Next循环终止异常及项目ID向上查找逻辑问题求助

嘿，我来帮你梳理下问题所在，顺便给你修正代码～

你当前代码的两个核心问题 #

• 循环没有终止条件：你用的For i = 0 To -5 Step -1是固定次数的循环，不管中途有没有找到非空的项目ID，它都会跑完6次才停下，这就是循环停不下来的关键原因。
• 单元格引用逻辑错误：SelectedData.EntireRow.Cells(i, "A")里的i是相对于EntireRow这个单行区域的行索引，而不是工作表的绝对行号。比如你选中第8行，EntireRow就是第8行，这个区域只有1行，用负数的i会引用到工作表里完全不对的位置，根本不是你要的「向上逐行查找」。

修正后的代码 #

Option Explicit
Sub Test()
    Dim SelectedRow As Range
    Dim ProjectID As String
    Dim currentRow As Long
    
    ' 取选中区域对应的整行（如果选中多个单元格，只取第一行）
    Set SelectedRow = Selection.EntireRow
    currentRow = SelectedRow.Row
    
    ' 获取当前选中行A列的内容
    ProjectID = Cells(currentRow, "A").Text
    
    ' 如果当前行A列为空，向上逐行查找
    If Len(ProjectID) = 0 Then
        ' 循环条件：还没到第一行，且没找到非空ID
        Do While currentRow > 1 And Len(ProjectID) = 0
            currentRow = currentRow - 1 ' 向上移动一行
            ProjectID = Cells(currentRow, "A").Text ' 获取当前行A列内容
        Loop
    End If
    
    ' 反馈查找结果
    If Len(ProjectID) > 0 Then
        MsgBox "找到项目ID：" & ProjectID
    Else
        MsgBox "从选中行往上到第一行，都没有找到有效的项目ID"
    End If
End Sub

修正点说明 #

1. 改用Do While循环：它会根据实时的条件判断是否继续执行，一旦找到非空的ProjectID，循环会立刻终止，完美解决你原来的循环停不下来的问题。
2. 用绝对行号定位：通过currentRow变量跟踪当前查找的行号，每次减1实现向上逐行移动，单元格引用逻辑更准确。
3. 增加边界防护：currentRow > 1确保我们不会超出工作表的第一行，避免出现错误。
4. 补充结果提示：最后用MsgBox反馈查找结果，方便你直观确认是否找到目标ID。

内容的提问来源于stack exchange，提问作者Dark Archon