请教高手关于遍历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等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
