VBA怎么统计出当前工作表的数据总行数

VBA如何统计出当前工作表的数据总行数
如我当前的工作表里有500行数据，那么我用VBA怎么才能返回500这个数，用做以后的动态统计

------解决方案--------------------------------------------------------
COUNTA(A:A)
------解决方案--------------------------------------------------------
Dim i As Integer '设置变量
i = Sheets( "工作表 ").[A1].CurrentRegion.Rows.Count 'I等于总行数