两层循环两个条件，怎么运行不了

zhusong1998

1. Sub 分数段判断()
   
2. Sheets("Sheet2").Select
   
3. Dim a, b, i, ii
   
4. For i = 1 To Range("A65536").End(xlUp).Row
   
5.     For ii = 10 To 20
   
6.         If Cells(i, 1) = "编号" Then
   
7.         a = Right(Cells(i, ii), 3)
   
8.         b = Left(Cells(i, ii), 3)
   
9.             If Sheet1.Range("a1:c29").Find(a) And Sheet1.Range("a1:c29").Find(b) Then
   
10.          Else
    
11.             Range(Cells(i, ii)).Select
    
12.              With Selection.Interior
    
13.                  .Pattern = xlSolid
    
14.                  .PatternColorIndex = xlAutomatic
    
15.                  .Color = 65535
    
16.                  .TintAndShade = 0
    
17.                  .PatternTintAndShade = 0
    
18.             End With
    
19.    
    
20.             End If
    
21.    
    
22.         End If
    
23.     Next
    
24. 
    
25. Next
    
26. End Sub
    

复制代码

这段代码怎么运行不了，一旦查找不到则报错。

恳请帮助~~
校对分数段.rar (44.64 KB, 下载次数: 3)

2018-8-11 15:10 上传

点击文件名下载附件

不知道为什么

看不懂 你代码得逻辑：

If Cells(i, 1) = "编号" Then  这句判断啥目的？只有 range("a1") 符合了
  If Sheet1.Range("a1:c29")  没有这么写  要么 sheets(1)  或者 sheets("sheet1")

zhusong1998

不知道为什么 发表于 2018-8-11 15:54
看不懂 你代码得逻辑：

If Cells(i, 1) = "编号" Then  这句判断啥目的？只有 range("a1") 符合了

这的主要想法是，校对带有”编号“这一行中J-T列的数据是否正确，也就是↑前后两个三位数字是否包含在sheets(1)里，如果都包含就是正确的，如果有一个不包含就是错误的。如果正确则跳过下面的循环，如果不正确，则单元格填充为黄色。

因为我只想查看带有“编号”这一行“J"-”T“这10列的数据是否正确，其他的行不用判断，故有If Cells(i, 1) = "编号" Then之说。

这段代码，如果J1-T1的数据都是正确的，Right(J1,3)与Left(J1,3)都包含在sheets(1)的表中，这段代码可以运行，但一旦有错误就不再运行了。