百分數小數點描繪與整數。例如,100.00%存儲爲1,98.01%存儲爲.9801。
爲此,你需要調整閾值:
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
的第二個問題是,刪除行的時候,最好向後遍歷。否則,它可能會遺漏一些行,因爲每行都被刪除,它會向上移動,然後下一次迭代會跳過下一行。
更改我從一個區域到長期使用這樣的:
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
編輯:因爲它似乎沒有對被強迫的數字看起來像百分比試試這個數字格式的定製模板:
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
如果這樣工作,那麼你的主要問題是你在看D列。偏移量是加法的。因此,當您使用.offset(0,3)
時,它將從列A移動三列。1 + 3是4.
然後,您必須在數字上設置自定義掩碼。像'00.00「%''這意味着數字不是真正的百分比,而是數字作爲百分比mascarading。 –
不,這些都是數以百計的值。我改回到> = 98.00,它的工作原理!謝謝。 – Dombey