Vergleichen von Dezimalwerten Excel VBA

Question

Ich versuche, Dezimalwerte in Excel VBA zu vergleichen und Zeilen zu löschen, die den Kriterien entsprechen. Dies war mein ursprünglicher Code und übersprang viele Zeilen.

For Each i In WSData.Range("A7", WSData.Range("A7").End(xlDown)).Cells 
    If i.Offset(0, 3).Value >= 98 Then 
     i.EntireRow.Delete 
    End If 
Next 

Und die Werte in der Tabelle sind Dezimalwerte nur mit dem% -Zeichen.

Ich versuchte „> 97.99“, weil Excel einige Probleme mit Floating-Point-Vergleich hat, aber es funktioniert immer noch nicht genau zu vergleichen.

Hier ist, was es nach der Verwendung von Selection.Value zeigt.

Answer 1

Prozent dezimal sind mit ganzen Zahlen dargestellt. Zum Beispiel werden 100,00% als 1 und 98,01% als .9801 gespeichert.

Dafür Sie die Schwelle anpassen müssen:

For Each i In WSData.Range("A7", WSData.Range("A7").End(xlDown)).Cells 
    If i.Offset(0, 3).Value >= .98 Then 
     i.EntireRow.Delete 
    End If 
Next 

Das zweite Problem ist, dass, wenn Löschen von Zeilen ist es am besten rückwärts zu durchlaufen. Anderenfalls könnten einige Zeilen fehlen, da beim Löschen jeder Zeile die Zeile nach oben verschoben wird und die nächste Iteration die nächste Zeile überspringt.

i Wechsel von einem Bereich auf einen langen und verwenden diese:

For i = WSData.Range("A7").End(xlDown).row to 7 Step -1 
    If WSData.Cells(i,3).Value >= .98 Then 
     Row(i).Delete 
    End If 
Next 

Edit: Da es scheint gibt es eine benutzerdefinierte Maske auf das Zahlenformat, die Zahlen zwingen aussehen Prozent dies versuchen:

Wenn dies funktioniert, war Ihr Hauptproblem, dass Sie Spalte D betrachtet haben. Der Offset ist additiv. Also, wenn Sie .offset(0,3) es bewegte drei Spalten aus der Spalte A. 1 + 3 ist 4.