VBA to Clear Contents of Every Alternate Cell in a Column

OldFella · Jun 16th 2017

I need to clear the contents of every alternate cell in a column, starting at cell C10, then C12 . . . . all the way down the column. I've searched for guidance but everything I've found to date relates to deleting entire rows or entire columns.

Help with VBA coding to achieve this will be much appreciated.

**KjBox** · Jun 16th 2017

Re: VBA to Clear Contents of Every Alternate Cell in a Column

Try this

Code

Sub ClearAlternateCells()
    Dim x, i As Long, lRow As Long
    
    With ActiveSheet
        lRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        With .Range("c10:c" & lRow)
            x = .Value
            For i = 1 To UBound(x, 1) Step 2
                x(i, 1) = vbNullString
            Next
            .Value = x
        End With
    End With
    
End Sub

Display More

OldFella · Jun 16th 2017

Re: VBA to Clear Contents of Every Alternate Cell in a Column

Perfect! Does exactly what I needed.

Thank you very much for your prompt and effective response.

**KjBox** · Jun 16th 2017

Re: VBA to Clear Contents of Every Alternate Cell in a Column

You're welcome.

VBA to Clear Contents of Every Alternate Cell in a Column

Participate now!

Share