Function f_Transpose(arr As Variant)
    '******转置函数，单列单行数组不会转置为一维的,没有系统255字符的限制******
    '******这里只考虑一维和二维数组 一维数组直接转为单列二维数组
    Dim brr(), i, j, n
    On Error Resume Next
    n = UBound(arr, 2)
    If Err = 0 Then n = 2 Else n = 1    '判断维数
    On Error GoTo 0
    
    If n = 1 Then
        ReDim brr(LBound(arr) To UBound(arr), 1 To 1)
        For i = LBound(arr) To UBound(arr)
            brr(i, 1) = arr(i)
        Next
    Else
        ReDim brr(LBound(arr, 2) To UBound(arr, 2), LBound(arr) To UBound(arr))
        For i = LBound(arr) To UBound(arr)
            For j = LBound(arr, 2) To UBound(arr, 2)
                brr(j, i) = arr(i, j)
            Next
        Next
    End If
    
    f_Transpose = brr
End Function