Public Function ArrFromRows(arr, rowlist)
    '将不连续的行数据从arr中取出到一个连续数组中
    '主要用于字典记录行数以后取数处理 ArrFromRows(brr, dic(arr(i)).keys)
    Dim brr, e, i, k
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
    For Each e In rowlist
        k = k + 1
        For i = 1 To UBound(arr, 2)
            If arr(e, i) Like "###############*" Then    '超过15位数字文本处理
                brr(k, i) = "'" & arr(e, i)
            Else
                brr(k, i) = arr(e, i)
            End If

        Next
        'brr(k, 2) = "'" & arr(e, 2)
    Next
    
    ArrFromRows = brr
End Function