以下代码标红出错，错误是对象变量with未定义，求大神帮助

xllxll1998

1. <div>以下代码标红出错，错误是对象变量with未定义，求帮助</div><div>
   
2. </div><div>Sub t2()
   
3. </div>Dim i As Integer
   
4. Dim r As Integer
   
5. Dim s As Integer
   
6. With Sheets("roa2")
   
7. For i = 2 To 302
   
8.   r = Application.WorksheetFunction.CountIf(.[a:a], Cells(i, "a"))
   
9.   If r = 0 Then
   
10.   GoTo 100
    
11.   Else
    
12. <font color="red">   s = .[c:c].Find(Range("d" & i), SearchDirection:=xlNext).Row '错误91</font>
    
13.    Cells(i, "n") = .Cells(i - 2, "d")
    
14.    Cells(i, "o") = .Cells(i - 1, "d")
    
15.    Cells(i, "p") = .Cells(i + 1, "d")
    
16.    Cells(i, "q") = .Cells(i + 2, "d")
    
17. End If
    
18. 100:
    
19. Next i
    
20. End With
    
21. End Sub

复制代码