|
如何在指定单元格区域内判断最后一行？ 问：arr = Sheets("表1").Range("B5:H" & Sheets("表1").Range("F65536").End(xlUp).Row) 这段代码是判断 B5:H 区域内 F 列非空值的行 如果只需要判断 B5:H20 区域内 F 列非空值的行 VB刚入门，想当然的修改为 arr = Sheets("表1").Range("B5:H20" & Sheets("表1").Range("F20").End(xlUp).Row) 是错误的 还请那位高手指点小弟，万分感谢～～！！ 答1：arr = Sheets("表1").Range("B5:H" & Sheets("表1").Range("F20").End(xlUp).Row) 答2：如设置变量 dim R as long dim arr R=Sheets("表1").Range("F20").End(xlUp).Row 这个Ｒ就是Ｆ列最在区域中的最后一个非空行号 数组arr arr = Sheets("表1").Range("B5:H" & R)或者 arr = Sheets("表1").Range("B5:H" & Sheets("表1").Range("F20").End(xlUp).Row) 是这个意思吗？ 问：但因为表格在F20单元格下面还有其它内容（不要求查询判断）， 改了上述代码之后，还是不能正确判断最后一行的 问终：修改了一下代码 arr = Sheets("表1").Range("B5:H" & Sheets("表1").Range("F21").End(xlUp).Row) 判断到F21 然后F21单元格是空值，F22以后即使有内容，也不会出错了 不知道是什么原理，瞎搞搞出来的，呵呵 |
|
|
