2016-07-25 6 views
-1

Ich muss eine Zelle mit der darunter in einer Schleife vergleichen. Ich weiß, für die meisten Sprachen können Sie etwas sagen wie "Wenn Zellen (i, 1) .Wert = Zellen (i + 1,1) .Wert dann ..."VBA referenziert nächste Zelle in For Schleife

ist es eine Möglichkeit, dies in VBA für Irgendein Grund, es funktioniert nicht für mich. danke

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 
+0

Das sollte funktionieren, vorausgesetzt, ich> 0 - Was passiert, damit Sie denken, dass es nicht funktioniert? –

+1

Wenn es nicht funktioniert, ist es am besten, den tatsächlichen Code, den Sie versuchen, zusammen mit einer Fehlermeldung, die Sie möglicherweise erhalten, zu posten. –

+0

Der Code ist unten eingefügt .. im Grunde versuche ich nur eine ganze Zeile zu verstecken, wenn die Zelle in dieser Zeile, sowie die darunter, eine Null enthält. Ich bekomme keine Fehlermeldungen, nur passiert nichts, wenn ich es ausführe. Für i = 7 Um ltrw Wenn (Cells (i, 1) .Value = 0 und Zellen (i + 1, 1) .Value = 0 Then Zellen (i, 1) .EntireRow.Hidden = True Ende Wenn Nächste ich –

Antwort

0

gefällt das?

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