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

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