VBA - 用0填充空單元格

Question

如何在一列填充0單元格的空單元格？我想我的代碼是完整的，但不能正常工作;（

Sub test() 

Dim cell As Range 

For Each cell In Range("B2307:B10000") 
If Len(cell.Value) = 0 Then 
    cell.Value = 0 
End If 
Next 

End Sub 

Answer 1

試試這個：

Sub test() 

Dim cell As Range 

For Each cell In Range("B2307:B10000") 
If Trim(cell.Value) = "" Then 
    cell.Value = 0 
End If 
Next cell 

End Sub 

Answer 2

Sub test() 
    Dim cell As Range 
    For Each cell In Range("B2307:B10000").Cells 
     If Len(cell.Value) = 0 Then 
      cell.Value = "0" 
     End If 
    Next 
End Sub 

Answer 3

沒有VBA：

Goto Special, Blanks 
type '0' 
Ctrl+Enter 

Answer 4

如果你真的需要VBA爲此，在這裏是更好的方法

Sub test() 

    On Error Resume Next 
    Range("B2307:B10000").SpecialCells(xlCellTypeBlanks) = 0 

End Sub 

Answer 5

儘管Rosetta的解決方案是這個非常特殊情況下最優雅的解決方案（空單元格），但我認爲以下方法是最通用的，因爲您可以通過更改公式來輕鬆地將其調整爲更多情況。

set rng = Range("B2307:B10000") 
rng.Formula = Application.Evaluate("=IF(ISBLANK(" & rng.Address & "),0," & rng.Address & ")") 

請記住這個模式，這非常有用！