求助：VBA迷宫寻路（BFS算法）代码运行失败问题排查

我帮你梳理下这段VBA迷宫寻路代码里的几个关键问题，这些应该就是导致多数情况运行失败的原因，同时附上修复后的完整实现：

代码中的核心问题 #

• BFS逻辑完全偏离：BFS的核心是用队列按顺序处理待访问节点，但你当前的visited和Tovisted的遍历方式完全不符合队列的先进先出规则，反而变成了混乱的重复检查，根本没实现广度优先的遍历逻辑。
• 坐标存储与解析错误：用currentRow & currentCol拼接字符串存储坐标，当行/列是两位数时，Left(temstore,1)和Right(temstore,1)会解析出错误的数值（比如行10列5会变成"105"，解析后行是1，列是5）。
• 访问标记时机混乱：多次重复设置单元格颜色，且在未完成节点处理时就标记为已访问，容易导致节点重复处理或遗漏。
• 方向遍历不完整：只处理了向下、向右两个方向，漏掉了向上、向左的可能，很多迷宫路径需要这些方向才能到达终点。
• 未初始化变量：temstore变量在使用前没有赋值，会导致运行时错误或逻辑崩溃。
• 初始死路判断不合理：仅检查右下两个方向就判定死路，过于局限，BFS本身可以自动处理起点是否为死路的情况。

修复后的完整代码 #

' 自定义类型：存储坐标及父节点，用于路径回溯
Type MazeNode
    row As Integer
    col As Integer
    parentRow As Integer
    parentCol As Integer
End Type

Sub FindPath()
    Dim startRow As Integer, startCol As Integer
    Dim endRow As Integer, endCol As Integer
    Dim queue As New Collection
    Dim visited As Object
    Dim currentNode As MazeNode
    Dim nextNode As MazeNode
    Dim directions(1 To 4, 1 To 2) As Integer ' 四个方向：上、下、左、右
    Dim i As Integer
    Dim found As Boolean
    
    ' 初始化起点、终点
    startRow = 2
    startCol = 2
    endRow = 5
    endCol = 5
    
    ' 初始化四个方向的偏移量
    directions(1, 1) = -1: directions(1, 2) = 0 ' 上
    directions(2, 1) = 1: directions(2, 2) = 0  ' 下
    directions(3, 1) = 0: directions(3, 2) = -1 ' 左
    directions(4, 1) = 0: directions(4, 2) = 1  ' 右
    
    ' 初始化已访问集合（用字典存储，键为"行,列"字符串）
    Set visited = CreateObject("Scripting.Dictionary")
    
    ' 起点入队，标记为已访问
    currentNode.row = startRow
    currentNode.col = startCol
    currentNode.parentRow = -1 ' 起点无父节点
    currentNode.parentCol = -1
    queue.Add currentNode
    visited.Add startRow & "," & startCol, True
    
    found = False
    
    ' BFS主循环
    Do While queue.Count > 0
        ' 取出队列头部节点（FIFO）
        Set currentNode = queue(1)
        queue.Remove 1
        
        ' 判断是否到达终点
        If currentNode.row = endRow And currentNode.col = endCol Then
            found = True
            Exit Do
        End If
        
        ' 遍历四个方向
        For i = 1 To 4
            nextNode.row = currentNode.row + directions(i, 1)
            nextNode.col = currentNode.col + directions(i, 2)
            
            ' 判断该方向是否可移动，且未被访问
            If isSafeToMove(nextNode.row, nextNode.col) And Not visited.Exists(nextNode.row & "," & nextNode.col) Then
                ' 设置父节点，用于回溯路径
                nextNode.parentRow = currentNode.row
                nextNode.parentCol = currentNode.col
                
                ' 入队并标记已访问
                queue.Add nextNode
                visited.Add nextNode.row & "," & nextNode.col, True
            End If
        Next i
    Loop
    
    ' 根据结果处理
    If found Then
        ' 回溯路径，标记红色
        TracePath currentNode, startRow, startCol
        ' 标记终点为绿色
        Cells(endRow, endCol).Interior.ColorIndex = 4
        MsgBox "路径已找到！"
    Else
        ' 标记起点为蓝色（无路径）
        Cells(startRow, startCol).Interior.ColorIndex = 5
        MsgBox "没有可行路径！"
    End If
End Sub

' 回溯路径的辅助函数
Sub TracePath(node As MazeNode, startRow As Integer, startCol As Integer)
    Dim tempNode As MazeNode
    tempNode = node
    
    ' 从终点回溯到起点
    Do While tempNode.parentRow <> -1
        Cells(tempNode.row, tempNode.col).Interior.ColorIndex = 3 ' 红色标记路径
        ' 移动到父节点
        tempNode.row = tempNode.parentRow
        tempNode.col = tempNode.parentCol
    Loop
    ' 标记起点
    Cells(startRow, startCol).Interior.ColorIndex = 3
End Sub

' 请确保你的isSafeToMove函数实现正确，示例如下：
Function isSafeToMove(row As Integer, col As Integer) As Boolean
    Dim maxRow As Integer, maxCol As Integer
    maxRow = Cells(Rows.Count, 1).End(xlUp).row
    maxCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 判断坐标是否在范围内，且不是墙体（假设黑色为墙体，ColorIndex=1）
    If row >= 1 And row <= maxRow And col >= 1 And col <= maxCol Then
        isSafeToMove = (Cells(row, col).Interior.ColorIndex <> 1)
    Else
        isSafeToMove = False
    End If
End Function

修复说明 #

1. 用队列实现标准BFS：使用Collection模拟队列，通过Add添加到尾部，Remove(1)取出头部，严格遵循先进先出的BFS规则。
2. 自定义类型存储节点：MazeNode类型存储当前坐标和父节点坐标，方便后续回溯完整路径。
3. 完整方向遍历：覆盖上、下、左、右四个方向，不会漏掉可行路径。
4. 正确的访问标记：用Dictionary存储已访问节点，避免重复入队，提升效率。
5. 路径回溯功能：找到终点后，通过父节点回溯标记完整路径，符合你需求的红色路径、绿色终点效果。
6. 健壮的边界判断：isSafeToMove函数会判断坐标是否在迷宫范围内，同时排除墙体。

内容的提问来源于stack exchange，提问作者Rico Yu