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
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
转载于:https://www.cnblogs.com/Willa/p/7267699.html