A列最底端有数据的单元格[a65536].end(xlup).row如果是统计每列有多少非空单元格就要调用COUNTA函数方便些WorksheetFunction.CountA (Range("A:A"))
在vba中调用counta函数统计
用do ... while 语句例如统计A列用的行数：n=1do while range("A"&n)<>""HangShu=nn=n+1loop
