VBA引用For循环中的下一个单元格

Question

我需要在一个循环中比较一个单元格与它下面的一个单元格。我知道对于大多数语言你可以说“if cells（i，1）.value = cells（i + 1,1）.value then ...”

有没有办法在vba中执行此操作，因为某些原因它不适合我。感谢

For i = 7 To ltrw 
    If (Cells(i, 1).Value = 0 And Cells(i + 1, 1).Value = 0 Then 
        Cells(i, 1).EntireRow.Hidden = True 
    End If 
Next i

Answer 1

像这样？

For i = 7 To ltrw 
    If Cells(i).Value = Cells(i + 1).Value Then  ' you can skip the ", 1" as its optional
        Cells(i).EntireRow.Hidden = True 
    End If 
Next i