Вы хотите сделать это на стороне Excel после того, как значение заполнено как «Inf» или «NaN»? Если это так, выполнение этого кода VBA заменит все ваши нечисловые значения на 0.
Sub fixValues()
Dim areaToSearch As Range, cell As Range
Set areaToSearch = Sheet1.Range("A1:A50")
For Each cell In areaToSearch
If IsNumeric(cell.Value) = False Then
cell.Value = 0
End If
Next cell
End Sub