获取电子表格列中最大长度

由于要通过求列中最大长度来创建数据表，所以需要获取列的最大长度

Function maxlen(r1 As Range) As Long
    Set srange = r1
    Dim max As Long
    Dim curlen As Long
    With srange
        For i = 1 To srange.Rows.Count
            curlen = LenB(StrConv(srange.Cells(i, 1).Value, vbFromUnicode))
            If curlen > max Then max = curlen
            
        Next i
        maxlen = max
    End With
    
End Function