标签：文档 func column sel cti 统计 cell excel vba
Sub countrownum() Dim i, num, rownum num = Worksheets.Count For i = 2 To num ‘Worksheets(i).Select rownum = WorksheetFunction.CountA(Worksheets(i).Columns("a:a")) Sheets(1).Cells(i, 5) = rownum Next End Sub
标签：文档 func column sel cti 统计 cell excel vba
原文地址：http://www.cnblogs.com/Willa/p/7267699.html
