Excel遍历：满足条件就停，历满其实就这几种玩法

你写VBA循环，足条止最怕什么？历满死循环。数据几千行，足条止跑一遍要半分钟，历满结果循环里头忘了写退出条件——那酸爽，足条止跟等网页加载似的历满。

正经说，足条止Excel里“遍历到满足条件就停”，历满说白了就三招：For循环配Exit For，足条止Do Loop配Exit Do，历满还有Find方法直接定位。足条止前两个是历满“走一步看一步”，第三个是足条止“直接问答案在哪”。

For循环：最笨但最直观

假设你在A列有一堆订单号，历满想找第一个以“AB”开头的订单，找到了就把整行标黄，然后收工。代码长这样：

Dim i As Long For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Left(Cells(i, 1).Value, 2) = "AB" Then Rows(i).Interior.Color = vbYellow Exit For ' 找到就撤，后面的不管了 End If Next i 

注意那个Exit For，它就是“刹车”。没有它，循环会把所有符合条件的行都标黄——有时候你要的就是全标，但这里你只要第一个。

个人经验：这种写法适合数据量三五万行以内，再多就肉了。而且如果A列有空单元格，Left函数会报错，最好加个If Not IsEmpty(Cells(i,1))前置判断。

Do Loop：更灵活的“边跑边看”

For循环适合知道要跑多少行的情况。但有时候你压根不知道边界在哪，比如从某个单元格开始往下找，直到遇到空行为止。这时候Do While更顺手：

Dim r As Long r = 1 Do While Cells(r, 1).Value <> "" If Cells(r, 1).Value = "STOP" Then MsgBox "找到停止标记，在第" & r & "行" Exit Do End If r = r + 1 Loop 

这个写法有个好处：循环条件本身就是一个“停止开关”——如果整列数据中间有空行，循环自动停，不会傻乎乎跑到最后一行。但反过来，如果你故意用空行做分隔，那就要小心别提前退出了。

我见过有人用Do Until IsEmpty(Cells(r,1))，其实和上面的Do While ... <> ""一个意思，只是正着写反着写的区别。顺手就行。

Find方法：暴力遍历的替代品

如果条件不是“前缀匹配”这种模糊逻辑，而是精确值——比如找订单号“A10086”第一次出现的位置，那就别用循环了，Find一行搞定：

Dim foundCell As Range Set foundCell = Range("A:A").Find(What:="A10086", LookAt:=xlWhole) If Not foundCell Is Nothing Then foundCell.EntireRow.Interior.Color = vbGreen End If 

速度比循环快一个数量级——Excel的Find是内部索引查找，不是逐格扫描。但注意两点：第一，LookAt:=xlWhole表示完全匹配，如果省略，Excel默认用你上次设置的匹配方式，容易踩坑；第二，如果找不到，foundCell是Nothing，必须判断，否则下一行代码直接报错。

说实话，我写代码五年，后来能不用循环就不用。不是循环不好，而是Excel自带的方法往往更快。但Find有个毛病——它只能找“完全等于”或“开头等于”这种简单模式，你要是想找“数值大于100且小于200”的第一个单元格，Find就抓瞎了，还是得回到循环。

一个真实翻车案例

上个月帮朋友处理一个销售报表，他原来的代码是这样的：

For i = 1 To 10000 If Cells(i, 3).Value > 5000 Then Cells(i, 3).Font.Bold = True End If Next i 

他说“我想让第一个超过5000的加粗，然后停”。结果代码跑完，所有超过5000的全加粗了。原因？他没写Exit For。我问他：“你这不是遍历到条件就停，你这是遍历完所有条件才停。”他愣了两秒，然后笑了。

这种错误特别常见——逻辑上知道要停，但写代码的时候手一滑就忘了。我的建议是：写循环前，先在注释里写清楚“找到第一个满足X的记录后立即退出”，然后再动手敲代码。人脑记不住那么多细节。

性能忠告

如果你的数据有十万行，而且你要做的是“逐行判断”——比如每个单元格都要用InStr检查是否包含某个关键词——那循环再快也快不到哪去。这时候可以考虑先把数据读入数组，在内存里遍历，最后一次性写回。但那是另一个话题了。

记住一个原则：能用Find别用循环，能用Exit For别空跑，能用数组别碰单元格。就这三点，能解决Excel里九成“遍历到条件就停”的需求。

最后补一句——如果条件复杂到连你自己都说不清“什么时候算满足”，那先别写代码，拿张纸把条件画清楚。代码写不出来，往往是逻辑没想明白，不是语法不会。

(责任编辑：综合)