Thursday, September 1, 2011

Fill Blank Cells in a Range with Zero Using VBA

If you want to fill blank cells in a range with zero value.-

Here is the code-

Sub fill_zero_in_blank_cells()
Dim rngfil As Range, cell As Range
' change the range as per ur requirement
Set rngfil = Range("a1:b65")
For Each cell In rngfil
If cell.Value = vbNullString Then
cell.Value = 0
End If
Next cell
End Sub

Non VBA Solution-

step 1

Select the whole Range.Press f5. click On special. -> choose blanks and click on ok

Step 2 type Zero "0" and press CTRL+ENTER

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...