求助：怎么返回已有数据的最大行列数量？

l601319

有的数据输入后在excel表格中是不连续，比如在a1、a2、a3、e5中输入有数据，其余为空，使用introw＝activecell.currentregion.rows.count
返回到introw变量的值始终是3，而不是5！？
怎么才可以返回我所需要的，怎么办？

hhzjxss

Range("a65536").End(xlUp).Row

l601319

[em17]

全部都搜索一次呀，这样会不会很慢？不过这个办法确实很好！稳当！

l601319

[em06]

不行啊，我试过，他还是返回连续区域的，5555...........你的代码是怎么编写的嘛

[em09]

hhzjxss

这样呢？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Range("a65536").End(xlUp).Row
b = Range("e65536").End(xlUp).Row
MsgBox Application.Max(a, b)
End Sub

hhzjxss

Sub 最大行() '只指定区域
   MsgBox "最大非空行在第 " & Sheets("区域最大行").Range("a:e").SpecialCells(xlCellTypeLastCell).Row & " 行"
End Sub

八月的梦游者

用UsedRange也可以。

Sub GetRow()
   ActiveSheet.UsedRange.Select
   MsgBox Selection.Rows.Count + Selection.Row - 1
End Sub

乐乐2006201506

Sub 最大行列数1()
Dim i&, i1&
    i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    i1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
   
End Sub

Sub 最大行列数2()
Dim i&, i1&

    i = Sheet1.UsedRange.Rows.Count
    i1 = Sheet1.UsedRange.Columns.Count
   
End Sub