工作表Sheet1的A列的数据行数Sheet1.[A65536].End(3).Row
sub aa()dim i as integeri=application.worksheetfunction.counta(a:a)msgbox iend sub
