在" Dim i, j, m, n, cell() As Integer
For j = 1 To 7
For i = 1 To Range("a65536").End(xlUp).Row
If cell(i + 1, j) = cell(i, j) Then
Range(Cells(i + 1, j), Cells(i, j)).Font.Color = vbGreen
End If" Next
Next
End Sub
中 If cell(i + 1, j)与 cell(i, j) 怎么是下标越界?