关于遍历excel单元格有关问题

请教高手关于遍历excel单元格问题
请教高手关于遍历excel单元格问题：
 遍历excel单元格，经查表格数据，总是出错，请高手指教,不胜感激

Sub find_error_level()
Dim i, j, k, m, n, a, b
For i = 2 To ActiveSheet.[A65535].End(xlUp).Row
  For j = 2 To ActiveSheet.[A65535].End(xlUp).Row
  If i <> j + 1 Then

  ' Set cursheet = Worksheets("Sheet1")
  If ActiveSheet.Cells(1, i).Value = ActiveSheet..Cells(2, j).Value Then
  If ActiveSheet.Cells(20, i) < ActiveSheet.Cells(21, j) Then
  ActiveSheet.Cells(20, i).Font.Color = red

End If
End If
End If
Next j
Next i
End Sub


------解决方案--------------------------------------------------------
单步调 试，贴出你的错误信息以供分析。

QQ群 48866293 OFFICE应用挖掘 
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》