範囲をループして空のセルを見つける

Question

次のコードに問題があります。範囲（AK2からデータの終わりまで）をループし、空のセルが見つかるたびにその値を売掛金に変更します。それをやっていない、私はまた、任意のエラー通知を取得しないでください。任意のアイデア

Option Explicit 

Private Sub Leere() 

Dim rng As range 
Dim rcell As range 
Dim WS As Worksheet 

Set WS = Worksheets("Sheet2") 

Set rng = WS.range("AK2", range("AK2").End(xlDown)) 

For Each rcell In rng 
    If rcell.Value = " " Then 
      rcell.Value = "Accounts Receivable" 
    End If 
Next 
End Sub 

：私の推測では - 私は、変数を設定すると間違って何かをやっていることですか？別の非VBAオプションは空白のセルに条件付き書式することができ

Set ws = ThisWorkbook.Worksheets("Sheet2") 

Set rng = ws.Range("AK2", ws.Cells(ws.Rows.Count, "AK").End(xlUp)) 

rng.Replace "", "Accounts Receivable", xlWhole 

：あなたはこのような何かを空の（式）細胞を交換しないことができるはずです

Answer 1

使用SpecialCells()

With ws 
    .Range("AK2", .Cells(.Rows.Count, "AK").End(xlUp)).SpecialCells(XlCellType.xlCellTypeBlanks).Value = "Accounts Receivable" 
End With 

Answer 2

。セルの値は空白になりますが、表示されるテキストの変更は動的になります。