主题：老师帮忙看看这个判断和循环是不是有问题？

rg.Rows.Count 应该有问题。

 

excel里面的有效行，可能并不是你看到的，一些被编辑过的也可能被判断为有效行

 

看看这里 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28024&skin=0

 

 

参考

 

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 max As Integer = 0
For i As Integer = 1 To ws.UsedRange.columns.count
    Dim r = ws.cells(65536,i).End(MsExcel.XlDirection.xlUp).Row
    If r > max Then
        max = r
    End If
Next
App.quit

msgbox(max)

 你的excel里面只有一个表，我测试的结果是36、6，结果没错的啊。