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