作者：乔山办公网日期：
返回目录：excel表格制作
是要获得数据区域的最大行数吗？
MsgBox Cells(1, 1).CurrentRegion.Rows.Count
With ActiveSheet.UsedRange
x = .Cells(.Rows.Count, .Columns.Count).Row
y = .Cells(.Rows.Count, .Columns.Count).Column
End With
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "更改zd的单元格内为：行" & Target.Row & "，列容" & Target.Column
End Sub
Dim rng As Range
Dim i As Integer, j As Integer
Set rng = xl.ActiveSheet.UsedRange
i = rng.Rows.Count '已使zhidao用的行数
j = rng.Columns.Count'已使用的列数
但是建议你不使用这种方式，比如回你的excel有3行，然后你在第5行里写入数据，然后再把写的数据删了，此时得到的行数还是5.只要用过答了它就算在内