自定义分段函数/求第N名成绩,需要的朋友可以参考下。

代码如下:Function splitx(strs1 As String, strs2 As String, n As Integer) ‘自定义分段函数 splitx([字符串],”分隔符”,第n段) Dim groupST() As String groupST = Split(strs1, strs2) If UBound(groupST) < n – 1 Then splitx = 0 Else splitx = groupST(n – 1) End If End Function