VBA - 空のセルを0で埋める

Question

空のセルを1つの列に0で埋める方法は？ VBAなしで

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 1

これを試してみてください。私は私のコードが完了したと仮定したが動作しません

Sub test() 

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

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

：

Goto Special, Blanks 
type '0' 
Ctrl+Enter 

Answer 4

あなたが本当にここで、このためにVBAを必要とする場合（

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 5

この非常に特殊なケース（空のセル）では、Rosettaのソリューションが最もエレガントなソリューションですが、数式を変更することで、より多くの状況に簡単に調整できるため、次のことが最も一般的です。

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

このパターンは覚えておくと便利です！