程序运行正常,一切OKVBA每次只能查找一个RNG啊 ,你不循环咋办,第一循环后内存中RNG已经得到了一个ADDDRESS 不重设RANGE那就是死循环 没有Set rng = Range("h2:h36").FindNext(rng),你的LOOP后面的条件就是没用的
代码没问题，可以运行
