How to replace the values within the conditional formatting range?

[sneakikaz]

My data has many number wherein some values are between 0 and -1. I labeled all of them with conditional formatting. However, it took quite a long time to replace all of them by 0. Is there any solution that help me to finish this more efficiently? Thank you very much.

 

[bebo021999]

This code go through cells with condition formatting, if their value >=0 and <=1, then delete.

Option Explicit
Sub delete()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    If cell.Value >= 0 And cell.Value <= 1 Then cell.Value = 0
Next
End Sub

 

[sneakikaz]

This code go through cells with condition formatting, if their value >=0 and <=1, then delete.

Option Explicit
Sub delete()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    If cell.Value >= 0 And cell.Value <= 1 Then cell.Value = 0
Next
End Sub

I am sorry but after I copy your code into the module, then run the macros, it does not work. Can you show me a more detailed tutorial? I am truly sorry because I have never used VBA before.

 

[sneakikaz]

This code go through cells with condition formatting, if their value >=0 and <=1, then delete.

Option Explicit
Sub delete()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
    If cell.Value >= 0 And cell.Value <= 1 Then cell.Value = 0
Next
End Sub

Oh it works perfectly, thank you a lot.