Replace blank cells with NONE

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Does anyone know how to cycle through a column or range and replace empty
cells with a value like 0 or NONE? The last row can vary each time...

Here is the code I have so far:

Dim strLstRw As String
strLstRw = ActiveSheet.Range("A65536").End(xlUp).Row


'change empty cells to "NONE"

Range("e11").Select


Do

If IsEmpty(ActiveCell) = True Then

ActiveCell.Value = "NONE"
ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell = "e" & strLstRw
 
I haven't tested this, but it looks like the last line show be
Loop Until ActiveCell.Address = "$E$" & strLstRw
 
Maybe another idea:

On Error Resume Next 'In case there are no blanks.
Range("A1:A10").SpecialCells(xlCellTypeBlanks) = "None"
 
Back
Top