[已解决]判断非空行数

我是个菜鸟

Sub o()
Dim x As Integer, n As Integer
'n = Sheets(14).Range("e1048576").End(xlUp).Row
For x = 2 To 3000
If Mid(Cells(x, "e"), 2, 1) = "H" Then
Cells(x, "q") = 50021206
Else
Cells(x, "q") = 50021306
End If
Next
End Sub

老是  帮看下这个代码   为什么我加上了n的那个条件判断 x=2 to n  就取不完整数据  不加n  直接指定2 to 3000就能运行正确 但是它是一直运行到第3000行  前面空白的行也按else下面的填了   怎么指定n参数才正确？

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-9-11 10:57

你的当前SHEET 是哪一个？ 别不是 sheet(14)
n = Range("e1048576").End(xlUp).Row

跳转到最佳答案楼层

这儿有肥猫

上附件

QLZ0602

你的当前SHEET 是哪一个？ 别不是 sheet(14)
n = Range("e1048576").End(xlUp).Row

我是个菜鸟

QLZ0602 发表于 2014-9-11 10:57
你的当前SHEET 是哪一个？ 别不是 sheet(14)
n = Range("e1048576").End(xlUp).Row

学习了   但是我在查看代码里面显示的是表14啊

QLZ0602

sheets(14) 和 sheets("14") 是不一样的意思