A列最底端有数据的单元格\r\n[a65536].end(xlup).row\r\n\r\n如果是统计每列有多少非空单元格\r\n就要调用COUNTA函数方便些\r\nWorksheetFunction.CountA (Range("A:A"))
