for each 循环 只能循环到第一个单元格L1 请大神帮忙看看哪有问题

惊鸿wxg

1. Sub 查找品牌()
   
2. Dim rg As Range
   
3. Dim n%
   
4. n = 1
   
5. For Each rg In Sheet2.Range("L1:L42")
   
6. 
   
7. 
   
8.   Do While n < 352
   
9.      n = n + 1
   
10.     If InStr(Cells(n, 1), rg) <> 0 Then
    
11.       Cells(n, 1).Interior.Color = 5296274
    
12.     End If
    
13.   
    
14.   Loop
    
15. 
    
16. Next rg
    
17. 
    
18. End Sub

复制代码

lwwy1981

惊鸿wxg 发表于 2020-5-28 18:18
验证文件已经上传 大神帮忙查看一下

你LOOP之后,N没有归零,所以就不会再进入While循环,loop后面加一句 n = 0

惊鸿wxg

DO WHILE 的循环没有问题，就是For each 只能读到L1单元格 然后就循环结束了

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
If InStr(Cells(n, 1), rg) <> 0 Then改为：
If InStr(Cells(n, 1), rg.value) <> 0 Then  试试看

lwwy1981

上传附件,才能知道

惊鸿wxg

验证文件已经上传 大神帮忙查看一下

半百

n = 1放到For下一行。

864163213

看上去没什么问题

惊鸿wxg

lwwy1981 发表于 2020-5-28 18:29
你LOOP之后,N没有归零,所以就不会再进入While循环,loop后面加一句 n = 0

果然是牛逼，问题已经解决了，确实是这样的，原本的逻辑就不对的，n超出范围了  后面就不在循环了。