要求：请数一下A例被使用了几行。
思路：先找到每行再累加，所以我们就要用到循环语句，这里用到是无限循环语句因为我们不知道它有几行，用 了无限循环语句就得用到条件判断语句，不然这段代码就不会停止，那什么时候停止呢？这里的要求是数一下有几行，那么条件就设置为没有使用的时候就停止。
按照这个思路可以做点其它的，比如查找一下有几个同名等………………只要在条件里面稍做修改就实现了。
代码分享：
Sub yu()
Dim srb% 申明变量
Do 无限循环开头
srb = srb + 1 实现累加
If Cells(srb, 1) = “” Then Exit Do 条件判断语句，条件成立就结束无限循环。
[d1] = “共使用” & srb & “行” 循环出来内容写入单元格
Loop 无限循环尾端。
End Sub
