VBA实例：高考分数投档指数分析（模块1.函数部分）

Function 返回学校记录数()
  Dim I%
  Dim rng As range
  返回学校记录数 = 0
  I = 0
    For Each rng In ThisWorkbook.Worksheets("备选院校").range("C5:C200")
      If Trim(rng) <> "" Then
         I = I + 1
      End If
    Next rng
  返回学校记录数 = I
End Function

标签：Function,Dim,VBA,End,返回,rng,range,实例,投档
来源： https://blog.51cto.com/12815848/2527920