VBA 找出空行的行数 我这样写错在哪了

Question

Sub cyts()
Dim x As Integer

Do While Cells(x, 1) = ""
x = x + 1
Loop
MsgBox x
End Sub
正解是16

Answer 1

x 没有赋初值，则使用默认值 0。但在 Excel 中，行标（列标也相同）是不可能小于 1 的，所以，运行到 Cells(x,1) 肯定出错。

 

1 个小的提醒，在 Excel 中行号是长整型数，最好将它声明成 Long 型。

使用 Excel 自身的 COUNTBLANK 函数或许更高效：

 

Sub test()
Dim LastRow As Long
Dim x As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
x = Application.WorksheetFunction.CountBlank(Range("a1:a" & LastRow))
MsgBox x
End Sub

来自：求助得到的回答

Answer 2

首先x没有赋值，所以缺省为0，而cells(0,1)会提示400错误。

其次，这段代码是统计表格第一行出现内容的行号是多少。比如你这个，在不错的情况下会返回2。

如果要代码，可以写一段给你。

Sub cyts()
x = 0
For r = [A65536].End(xlUp).Row To 1 Step -1
If Cells(r, 1) = "" Then x = x + 1
Next
MsgBox x
End Sub

Answer 3

Sub cyts()
Dim x As Integer
x = 1
Do While Cells(x, 1) = ""
x = x + 1
Loop
MsgBox x - 1
End Sub
正解是1，A2单元格已经停止循环。