如何计算各列的记录数？

dengxsh

如何自动计算出Sheets("优势表")、Sheets("劣势表")中各学院的记录数，写入到整个表格中记录数最多的下一行。
——————————
例如，这里的Sheets("优势表")，行数最多的是“外语学院”，含表头、标题行等共占26行，那么各学院的记录数就应该写在第27行。

dengxsh

请求高手们伸出援助之手啊！

不知道为什么

dengxsh 发表于 2019-1-22 11:46
请求高手们伸出援助之手啊！

写了个自定义函数，你试试把

1. Function GetCol(ShName As String) As Integer
   
2.     Dim c%, arr()
   
3.     c = Worksheets(ShName).UsedRange.Columns.Count
   
4.     ReDim arr(1 To c)
   
5.     With Worksheets(ShName)
   
6.         For i = 1 To c
   
7.             arr(i) = .Cells(.Rows.Count, i).End(xlUp).Row
   
8.         Next i
   
9.         GetCol = WorksheetFunction.Max(arr)
   
10.     End With
    
11. End Function
    
12. Sub test()
    
13. MsgBox GetCol("劣势表")
    
14. End Sub

复制代码

不知道为什么

dengxsh 发表于 2019-1-22 11:46
请求高手们伸出援助之手啊！

代码审核中，先截图你

自定义函数，你试试把

不知道为什么

dengxsh 发表于 2019-1-22 11:46
请求高手们伸出援助之手啊！

如图

dengxsh

不知道为什么 发表于 2019-1-22 12:06
写了个自定义函数，你试试把

谢谢您的热心帮助！