Макрос скрипт Excel, заполнение пробелов NULLS, ошибка 400

Question

Все, что я пытаюсь сделать, это заполнить NULL в пустых ячейках.

исходный код:

Sub fillNULLs()

Dim count As Integer
count = 0

Dim col As Integer
col = 2

While count < 23403

If (Cells(count, col) = "") Then

Cells(count, col) = "Null"

End If

count = count + 1

Wend

End Sub

---

Я запускаю макросы и получаю400 и хорошо кнопка.Может кто-нибудь заметить проблему

Answer 1

Sub fillNULLs()
Dim a, b As Range

Set a = Range("B1:B23402")
For Each b In a
   If (Trim(b.Value) = "") Then b = Null
Next b

End Sub  

Редактировать

Чтобы проверить, выполняет ли он то, что должен

Sub fillNULLs()
Dim a, b As Range

Set a = Range("B1:B23402")
For Each b In a
   If (Trim(b.Value) = "") Then b = "Null"
Next b  

End Sub  

Вы увидите «Ноль» в измененных значениях.

Answer 2

Я полагаю, что сначала счет должен быть 1, прежде чем цикл пока