VBA - 0으로 빈 셀 채우기

Question

빈 셀을 한 열에 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 & ")") 

이 패턴은 매우 유용합니다.