I would like to delete every zeros in a worksheet.
The zeros are spread out random in my worksheet.
How can I easily delete the zero cells with VBA?
Thanks in advance!
Code to remove zeros in active sheet:
Sub RemoveZeros()
Dim Rng As Range
For Each Rng In ActiveSheet.UsedRange
If Rng.Value2 = 0 Then Rng.ClearContents
Next Rng
End Sub
Collected from the Internet
Please contact [email protected] to delete if infringement.
Comments