Excel搜索代码陷入无限循环崩溃，求双列匹配解决方案

兄弟，我太懂这种Excel突然卡死崩溃、只能强制退出的糟心感了！你遇到的这个问题，几乎肯定是代码里的循环逻辑出了纰漏——要么是终止条件没写对，要么是循环过程中不小心干扰了循环变量，导致程序跳不出循环。下面给你几个排查方向和替代方案：

一、先排查循环的核心问题 #

• 检查循环终止条件与变量递增
  如果你用的是Do While/Do Until循环，一定要确认循环变量（比如行号i）有没有在每次循环里正确递增/递减。举个反例：

  Dim i As Integer
  i = 2
  Do While Cells(i, 1).Value <> ""
      ' 你的匹配逻辑
      ' 忘了写 i = i + 1！
  Loop
  

  这种情况直接就会无限循环在第2行，Excel不崩才怪。要是用For循环，要注意不要在循环里修改循环变量（比如i = i + 2），不然也会打乱循环的终止逻辑。
• 避免在循环中修改遍历集合
  如果你用For Each Cell In Range这种遍历方式，千万别在循环里删除/插入行——这会导致遍历的集合被篡改，程序会反复处理同一个位置，进而陷入循环。

二、换更高效的非循环方案（彻底避开循环坑） #

其实找两列匹配的行，完全不用靠循环，用这些方法既快又稳定：

• 用AutoFilter直接筛选
  利用Excel自带的筛选功能，一键找出匹配行：

  Dim lastRow As Long
  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
  ' 清除原有筛选
  If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
  ' 同时筛选A列和B列的匹配值
  Range("A1:B" & lastRow).AutoFilter Field:=1, Criteria1:="要匹配的值1"
  Range("A1:B" & lastRow).AutoFilter Field:=2, Criteria1:="要匹配的值2"
  ' 筛选后的可见行就是你要的结果
  

• 用数组批量处理
  把数据读到数组里遍历，比逐个遍历单元格快几十倍，也不会卡Excel：

  Dim dataArr As Variant, matchRows As Collection
  Dim i As Long
  Set matchRows = New Collection
  
  dataArr = Range("A1:B" & lastRow).Value
  For i = 1 To UBound(dataArr)
      If dataArr(i, 1) = "匹配值1" And dataArr(i, 2) = "匹配值2" Then
          matchRows.Add i ' 记录匹配的行号
      End If
  Next i
  
  ' 后续可以根据matchRows里的行号处理数据
  

三、应急调试小技巧 #

下次再遇到类似情况，别直接硬扛到崩溃：

• 在循环里加Debug.Print i，打开VBA的“立即窗口”，就能看到循环变量是不是一直在重复，马上定位问题。
• 临时加个强制终止条件，比如If i > 1000 Then Exit Do，先让程序停下来，方便你调试。

如果能把你的代码贴出来，我们能更精准地帮你揪出问题所在！

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