宏脚本Excel，用空值填充空格，错误400

我所要做的就是在空白的单元格中填入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

Sub-fillNULLs（）
将计数设置为整数
计数=0
作为整数的Dim col
col=2
当计数小于23403时
如果（单元格（计数，列）=“”），则
单元格（计数，列）=“空”
如果结束
计数=计数+1
温德
端接头

---

---

我运行宏，得到一个400和一个OK按钮。有人能发现这个问题吗？我想在While循环之前，计数应该是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  

---

您将在修改后的值中看到“Null”

好吧，我认为这很好，但是你需要结束if语句，而且它会滞后，然后什么也不做，但没有400个错误，这是一个加号。不过还是要谢谢你！哦，是的，好吧，我的方式现在起作用了，但是谢谢分享：）你的看起来确实更好，但是我的工作完成了，但是谢谢@抽象这种方法更加灵活，因为您可以选择任何范围（行、矩形、不相交等），而无需修改代码。HTHyou是对的，这对我来说真的很奇怪，但对于excel vb来说是一次有用的学习经历。我见过的第一种编程语言在0开始循环时引起了轰动，但谢谢@抽象你的方式不是“VBAish”。请看我的答案。现在它有意义了，因为我使用了0的计数，而技术上没有索引为0的行，因此导致了错误。谢谢Sjoo