主题：[求助]如何获取excel表中某列最后非空单元格的值?

比如

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim r = ws.cells(65536,2).End(MsExcel.XlDirection.xlUp).Row
msgbox(r)

App.quit