Пробег через диапазон и поиск пустых ячеек

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 

Любые идеи?

Answer 1

использование SpecialCells()

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

Answer 2

Вы должны быть в состоянии заменить пустую (формулы) клетку с чем-то вроде этого:

Set ws = ThisWorkbook.Worksheets("Sheet2") 

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

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

Еще не-VBA опции может быть условное форматирование для пустых ячеек , Значения соты будут по-прежнему пустыми, но отображаемое изменение текста будет динамическим.