最終效果：

復制代碼 代碼如下:

Function GetRemark(rowNum As Integer, remark As String) As String
Dim cutLength As Integer = 10
Return Mid(remark, cutLength * (rowNum - 1) + 1, cutLength)
End Function