Question

vba如何获取最后一个数值的行号

可能是我没有说清楚，如果获取最后非空单元格的行号我还是知道de
其实我想获得的是忽略字符串，获取最后一个数字的行号，请大侠赐教

Answer 1

利用函数解决。
'运用函数公式法，2007以上版本适用
Sub 获取最后一个非空单元格1()
MsgBox [Match(1, 0 / (A:A <> ""))]
End Sub

2003版本中由于不支持整列的运算，可以采用以下方式：
'2003适用，由于2003不能使用整列的运算
Sub 获取最后一个非空单元格2()
MsgBox [IF(A65536<>"",65536,MATCH(1, 0 / (A1:A65535 <> "")))]
End Sub

Answer 2

其实方法还是很多的
1.对于2003版本，行限制在65536上，可以使用Range("A65536").End(xlUp).Row,当然A列必须有数据, 2007版的行限制大大放宽，要适当变更
2.Cells.SpecialCells(xlCellTypeLastCell).Row这个方法也是很好用的
3.通过多不计算法，使用range和count方式计算出行号，不赘述了，因为上面2个方法比较好

Answer 3

i = Cells.Find("*", , , , 1, 2).Row

Answer 4

假设获取A列、、

irow=range("A65536").end(xlup).row

这个需要假如一个循环了。。。

for i=range("A65536").end(xlup).row to 1 step -1
if isnumeric(cells(i,1).value) then
irow= i
exit for

end if

next

Answer 5

A列最后一个数值的行号
Range("a65535").End(3).Row