Question

vba findnext重复，每个结果出现两个！

Set c = .Find(condition, lookat:=xlPart)
Do
result = "记录行号：" & c.Row
msgbox ( result)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress

求问原因何在！如何解决？
do 前面有
firstAddress = c.Address

Answer 1

代码没有问题，那就是数据的问题了，因为您只记录了行号，而且因为您采用的是部分匹配，那很有可能是同一行内有两个单元格都包含了您所查找的内容。
excel默认的searchorder是先行后列。您可以改一下这个参数，然后看看查找结果出现的顺序来判断是不是我上面说的原因。