Question

I’m trying to clear contents on row and columns when there is a 0 found.

I’m able to write out a code to clear them, but I can only vary the row. My column is fixed and it starts to get a little lengthy after i add in more of similar codes to consider columns A to Z.

My codes is as follows

Sub Macro1()

Dim columnval As Long, k As Long

For k = 5 To 6

    If (Range("A" & k)) = 0 Then
    Range("A" & k).ClearContents
    End If

Next k

For k = 5 To 6

    If (Range("B" & k)) = 0 Then
    Range("B" & k).ClearContents
    End If

Next k

End Sub

The code is working, just that it gets too lengthy when comes to column Z. If you have a better way, do share it with me! Thanks!

Answer 1

Here is the shortest and the fastest way to achieve what you want.

Option Explicit

Sub Sample()
    Sheets("Sheet1").Cells.Replace What:="0", Replacement:="", _
    LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
End Sub

FOLLOW UP

Hi, what if i only wants to clear content over at row 5 and 6, column A-Z? It seems like it is clearing everything. – user1204868 14 mins ago

Option Explicit

Sub Sample()
    Dim Rng As Range

    Set Rng = Sheets("Sheet1").Range("A5:" & "Z" & Rows.Count)

    Rng.Replace What:="0", Replacement:="", _
    LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
End Sub

Sid